
OCAO 

8000 

8060 

8080 

8064 

0C86 


; ***** 

? * 

? * ADD-WHATEVER GRAPHICS AND I/O EXTENSIONS 
; * 

5 *■ PROGRAMMED BY 
5 * 

5 * .JAY FENTON 

5 * 

? * FEB -MAR 1979 
? * 

; ***** 

.XLINK 
„ F'ABS 
. PHEX 

5 ***** , 

5 * 

5 * VERY IMPORTANT EQUATES !! 

; * CHANGE THESE ANY TIME AL MCNEILS VERSION IS 
CHANGED!! 

5 * 

5 ***** 

GRADDR—0CA0H 5 ** START OF GRAPHICS GOODIES * 

* 

RAMBEG=08000H ? ** RAM AREA START ** 

DPADDR=08060H ", ** A DDR OF DICTIONARY POINTER 
** 

DPVAL=08080H i ** VALUE OF DICTIONARY POINTER 
** 

LASTADDR=08064H ? ** ADDR OF LAST VAR IN TERSE * 
* 

.LINK.=0C86H ? ** VALUE OF LAST FROM TERSE ** 


; ***** 

? * 

? * TERSE MACROS 
; * 

5 ***** 

S SET IY = SP, CREATING A POINTER TO STACK FRAME 


,DEFINE FRAME®! 

PUSH Y 

LX I Y, 0 

DADY SPG 

? RESTORE OLD TY FROM STACK 
.DEFINE UNFRAME-C 
POP y:\ 

.DEFINE NEXT®! 

PCIY3 ■ 


.DEFINE SYSTEM IS 

STRING 

. BYTE 

7.LEN- 

.ASCII 

C2EH3 

"/.LENS II 


. DEF INI VERB t STRING, 7. 

. WORD 

. LINK 

.LINK.-.-2 
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OOOC 
GOOD 
OOOE 
OOOF 
0019 
0099 


0003 

0020 

0008 


0009 



. BYTE 

7.LEN-. -1 


. ASCII 

STRING 

7.LENS ] 
.DEFINE 

IMMED EE 

TRING i 7.LEN 3 = C 


. WORD 

LINK. 

.LINK.*. 

•t£ 



. BYTE 

7.LEN-.-1+80H 


.ASCII 

STRING 

7.LEN! 3 
.DEFINE 

DHEAD=r. 

R3T 

1 3 

..DEFINE 

DEND=C 
„ WORD 

7.END3 

.DEFINE 

CONSTANT C NAME , VALUE , L.ABE 


VERB 

"NAME" 

. IFB 
NAMESIC 

CLABEL 3, 

C 

LABELS 3 

CALL 

CONST 


. WORD 

VALUE3 

.. DEFINE 

VARIABLE 

E NAME i VAL< 0) 3 = C 


VERB 

"NAME" 

NAMES 

CALL ,• 

SHI 

”1 

.WORD 

VAL. 

.DEFINE 

TEXT CSTR3=C 

. . E= 

.. ASCI I 

n 

C..E~..S-13STR 

3 

.DEFINE 

WASTECTIME,7.LAB: 


MV I 

A,TIME 

7.LABS 

DCR 

A 


JRNZ 

7.LAB3 


; 

? # 

3 * 10 PORT EQUATES 
5 * 

3 #■«•*** 

MAGIC=OCH 
INFBK=0DH 
INMOD-OEH 

TNLIN=0FH ' 

X P AND= 19H 

TAPE10=99H 5 PORT USED FOR BIT BANGER AUDIO 

INTERFACE 

3 BITS AND MASKS FOR MAGIC REGISTER VALUES 

n 

V v - k 

MRXPND=3 5 MR EXPAND BIT NUMBER 

XORWMR—20H 5 XOR MASK 

XPWMR=8H 5 EXPAND MASK 

5j 

5 * SPECIAL CHARACTERS 

3 # 

3 #*#•**• 

TAB=9 
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00 IB 


ESC=1BH 

0022 


DQU0TE=22H 

0027 


SQUOTE—27H 

005E 


UPA=5EH 

005F 


LEFTA=5FH 

0000 


dowima=o 

0000 


FORWARD 

0000 


X0RCHR=0 ? CHARACTER CODE FOR KEYBOARD -'X 

OR" KEY V- 

000D 


NL=OD'H 5 CARRAIGE RETURN 

OOOA 


LF=OAH ? LINE FEED 

005F 


RUBKEY=5FH ? RUBOUT CODE FOR KEYBOARD READ 

0018 


LINKIL= •"X•" —40H 5 LINE KILL 

0008 


RUBOUT=08H 5 RUBOUT CODE FOR CHAR DISPLAY 

OOFD 


LOCK=OFDH 5 SHIFT LOCK KEY CODE 

OOFE 


FLIP=OFEH ? UPPER-LOWER SENSE SHIFT 

OOFF 


BREAK=OFFH ? PANIC BUTTON 

St 

* 

« ***** 

? * ' cV 

5 * OTHER EQUATES FOR KEYBOARD SCANNER 



? •* 

? ***** 

0044 


SHKMSK=010001OOB ? SHIFT KEY POSITIONS IN 

COL 7 

0030 


CNTMSK=0011OOOOB 5 CONTROL KEY POSITIONS 

IN COL 7 

0003 


KEYTRV=3 ? DEBOUNCE TIME CONSTANT 

0020 


KEYBSZ=32 ? SIZE OF KEYBOARD INPUT 

BUFFER 
. ***** 

; * 

? DISPLACEMENTS FOR PARAMETERS IN STACK F-RAME 

CREATED 

? * BY --FRAME- MACRO 
? * 

5 * FOR EXAMPLE 7 TO GET THE FIFTH PARAMETER INT 
0 DE: 

5 MOV E,P5(Y) 

? * MOV D i P5+1(Y) 


/ 

5 * 



. ***** 

0002 


FR„P1=2 

0004 


FR.P2=4 

0006 


FR.P3=6 

0008 


FR.P4=8 

OOOA 


FR.P5=10 

oooc 


FR.P6=12 

OOOE 


FR.P7=14 

0010 


FR.P8-16 

? DISPLACEMENTS FOR PARAMETERS TO --BOX-' COMMAND 

OOOA 


BX„X=10 

0008 


BX.Y =8 

0006 


BX„XS =6 
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0004 

ooo:2 

0006 

OOOA 

0000 

0002 

0004 

0006 


0028 

OFFF 

4PPP 


OCBC 

OpBE 

OCBF 

OCCO 


063E 

AF 

EB 

77 


BX« YS=4 
BX„MOD—2 

$ AND PARAMETERS TO CLIP SUBROUTINE 
CI...P „ S=6 
CLP.C*10 

5 FIELDS IN WINDOW DESCRIPTOR TABLE 
WXR=0 5 XRIGHT 

WXL=2 ? X LEFT 

WYU=4 ; y UPPER 

WYL=6 ? Y LOWER 

» ***** 

; * 

? * MI SC STUFF 
? * 

; ***** 

BYTEPL=40 
LAY 

URINAL=OFFFH 
CRAPPER-4FFFH 
; ***** 

■ # 

? * PLUG IN JUMP TO INITIALIZATION CODE 

5 * 

; ***** 


BYTES PER LINE OF DISP 
STUPID MEMORY CELL 


0100 


. LOC 

100H 

0100 

C3 OCAO 

JMP 

POWERUP 

OCAO 


„ LOC 

GRADDR 







" * 




? #• RESET INITIALIZATION 



? * 


OCAO 


POWERUP s 


OCAO 

F3 

DI 


OCA 1 

AF 

XRA 

A 

0CA2 

D30E 

OUT 

INMOD 

0CA4 

21 OCEO 

LX I 

H,INICOL 



OR MAP REGISTER' 

s 

0CA7 

OEOA 

MV I 

C i 0AH 

0CA9 

7E 

„hOUTR s MOV 

At M 

OCA A 

ED79 

OUTP 

A 

OCAC 

JiZ. •.“> 

I NX 

H 

OCAD 

OD 

DCR 

C 

OCAE 

F2 0CA9 

JP 

. * OUTR 

OCB1 

21 1CF6 

LX I 

H,INIVAL 



BLES 


0CB4 

11 8000 

LX I 

D,RAMBEG 

0CB7 

01 OOOC 

LX I 

B» ZEROUT- 

OCBA 

EDBO 

LDIR 



INITIALIZE COL- 


ZERO OUT VARIA 


MV I 
XRA 

x( 


.CLR! 



B/tERSIZ 
—-Hh 

Mt A 
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0CC4 

21 ICES 

LX I 

ST" POINTER 

H, LSTLNK 5 INITIALIZE -’LA 

0CC7 

22 8064 

SHLD 

LASTADDR 

OCCA 

21 0D18 

LX I 

REGISTERS 

H, INTVEC ? SET INTERRUPT 

OCCD 

7C 

MOV 

A 7 H 

OCCE 

ED47 

ST AI 


OCDO 

7D 

MOV 

A 7 L 

OCD1 

D30D 

OUT 

INFBK 

0CD3 

ED.5E 

I M2 


0CD5 

3E08 

MV I 

A 78 

0CD7 

D30E 

OUT 

INMOD 

0CD9 

AF 

XRA 

A 

OCDA 

D30F 

OUT 

INLIN 

OCDC 

FB 

El 


OCDD 

C3 0103 

•JMP 

ION CODE 
; ***** 

5 * 

5 * TABLE OF 

103H ? ENTER AL'S INITIALIZAT 

1 

INITIAL COLOR VALUES 


! * STORED IN REVERSE ORDER 
5 * 

; ***** 

OCEO INICOLs 


OCEO 

CC 

. BYTE 

OCCH 

w 

? 

VERT BLANK 

OCE1 

2 C 

.BYTE 

2CH 

n 

HORI BOUND 

0CE2 

00 

. BYTE 

0 

V 

CON-COM 

0CE3 

08 

. BYTE 

8 

*i 

7 

0CE4 

5B 

. BYTE 

• 5BH 

u 

7 

6 

0CE5 

A 5 

. BYTE 

0A5H 

n 

7 

5 

0CE6 

07 

. BYTE 

7 

7 

4 

0CE7 

08 

„ BYTE 

8 

7 


0CE8 

5B 

. BYTE 

5BH 

7 


0CE9 

A5 

. BYTE 

0A5H 

u 

7 

1 

OCEA 

07 

. BYTE 

7 

H 

7 

0 


; ***** 

5 * 

5 * CONSTANT ROUTINE - LOCAL TO THIS MODULE 
5 * DELETE THIS GUY WHEN YOU RUN OUT OF SPACE 
5 * HE IS DUPLICATED IN AL"S MODULE 
5 * 

; ***** 

OCEB CONST: 


OCEB 

El 


POP 

H 

OCEC 

5E 


MOV 

E,M 

OCED 

23 


I NX 

H 

OCEE 

FiA 


MOV 

D, M 

OCEF 

D5 


PUSH 

NEXT! 

D 

OCFO 

FDE9 


PC IY 3 



? * INCREMENT INTERRUPT LOCKOUT FLAG 


5 * CALLED BY PROCEDURES THAT CAN NOT BE INTERRU 
F'TED Y YYY/ 
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0CF2 

0CF2 E5 

0CF3 21 800C 

0CF6 34 

0CF7 El 

0CF8 09 


0CF9 

0CF9 E5 

OOFA 21 8000 

OCFD 35 

OCFE El 

0CFF 09 


3 * DUE TO NON REENTRANCY 
; * 

5 ***** 

1NcLUK 5 

PUSH H 

LX I H?INTLOK 

INR M 

POP H 

RET . 

? ***** 

“ * 

? * DECREMENT INTERRUPT LOCKOUT FLAG 
? * RELEASES LOCKOUT SET BY CALL TO INCLOK 

; * 

- 

DECLOKs 

PUSH H 

LX I H,INTLOK 

DOR M 

POP *H 

RET 

; ***** 

5 * 

5 * INTERRUPT SCHEDULING VERB 

%■ * SCHEDULES A VERB TO BE EXECUTED AT INTERRUPT 
LEVEL 

5 * interrupt!ine routineaddress DOIT . 

* 

; ***** 


VERB "DOIT"! 


ODOO 

0C86 

Hh 

,, WORD 

.LINK. 


0D02 

04 


. BYTE 

. „ 0001"-,.-1 


0D03 

444F4954 

*+* 

.ASCII 

"DO-IT" 


ODD 7 


+ .,,00015 3 



0DO7 

El 

DO 

POP 

H ; 

H=VERB ADDR TO 

0D08 

22 8019 


SHLD . 

INTVRB 


OD0B 

El 

ON 

POP 

H ; 

H=L..INE TO DOIT 

OD0C 

7D 


MOV 

A ? L. 


OD0D 

D30F 


OUT 

INLIN 


0D0F 

FDE5 


PUSH 

Y ? ftft CL.UDGE TO 

REMEMBER IY FOR 



I NT 

USE & & 



GDI! 

E1 


pop 

H 


GDI 2 

22 80IB 


SHLD 
NEXT I 

lYVALU 


GDI 5 

FDE9 

+ 

PCI Y 3 



GDI 8 


RY 

„ LOC 

( . +1) ?<0FFFEH 5 

TO BYTE BOUNDA 

GDIS 


INTVEC5 



GDIS 

GDI A 


.WORD 

scr i nt ; 




5 ' ft&ftftft 





5 ft 






$ ft 

SCREEN INTERRUPT ROUTINE 




? ■* 

PERFORMS KEYBOARD SCAN, THEN 

TRANSFERS CONTR 
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OL TO 

5 * USERS INTERRUPT VERB, IF ONE HAS BEEN SPECIF 
I ED 

5 * 

; ***■«•* 


OD1A 


SCRINTs 


OD1A 

F5 

PUSH 

PSW 

O'DIB 

C5 

PUSH 

B 

OD1C 

D5 

PUSH 

D 

OD 1D 

E5 

PUSH 

H 

OD 1E 

D9 

EXX 


OD 1F 

08 

EXAF 


.0020 

F5 

PUSH 

PSW 

0021 

C5 

PUSH 

B 

0D22 

D5 

PUSH 

D 

0D23 

E5 

PUSH 

H 

0D24 

FDE5 

PUSH 

Y 



? CHECK KEYBOARD 

0D26 

CD 17B5 

CALL 

KEYSCN 



“ INTERRUPTS ON? 

0D29 

3A 800C- 

LDA 

INTLOK 

002C 

A7 

ANA 

A 

0020 

2018 

JRNZ 

GOBACK 



? HAVE WE SOMETHANG TO DOT 

0D2F 

2A 8019 

LHLD 

INTVRB 

0 Do/. 

7C 

MOV 

A, H 

0D33 

B5 

ORA 

L 

0034 

2811 

JR 2 

GOBACK 

0D36 

FD2A 80IB 

LI YD 

IYVALU 

0D3A 

01 0D45 

LX I 

B,GOBAKV 

0D3D 

11 0000 

LX I 

D, 0 

0D40 

ED53 8019 

SDED 

INTVRB 

0D44 

E9 

PCHL 


0D45 


GOBAKV s 


0D45 

0D47 

. WORD 

GOBACK 

0D47 


GOBACKs 


0D47 

FDE1 

POP 

Y 

0D49 

El 

POP 

H 

0D4A 

D1 

POP 

D 

0D4B 

Cl 

POP 

B 

0D4G- 

FI 

POP 

PSW 

0D4D 

08 

EXAF 


0D4E 

D9 

EXX 


0D4F 

El 

POP 

H 

0D50 

01 

POP 

D 

0051 

Cl 

POP 

B 

0D52 


INTNOGOs 


0D52 

FI 

POP 

PSW 

•0053 

FB 

El 'V-,; 


0054 

C9 

RET 



? * 

S * VERB TO RE-INITIALIZE INTERRUPT REGISTERS 
? * AND RE-ENABLE INTERRUPTS 
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II 

? 

•JHHHfr# 





VERB 

"ENABLE"C 

0D55 

ODOO 

4 * 

. WORD 

.LINK. 

0D57 

06 

4 - 

.BYTE 

..0002—.-1 

0D58 

454E41424C45+ 

.ASCII 

"ENABLE" 

0D5E 


+ * 

. 0002 5 3 


0D5E 

21 OD18 


LX I 

H, INTVEC 

0D61 

7C 


MOV 

A,H 

0D62 

ED47 


ST AI 


0D64 

7D 


MOV 

A,L. 

0D65 

D30D 


OUT 

INFBK 

0D67 

ED5E 


I M2 


0D69 

FB 


El 





NEXT! 


0D6A 

FDE9 

+ 

PCI Y j 




7. 





n 

? 





7 

* VERB TO READ BLOCK INTO MEMORY 



7 

* memaddrress 

TAPE IN . 



7 

a* 




SI 

V 

■jhhh*** 





VERB 

“TAPEIN"C 

0D6G 

0D55 

+ 

* WORD 

.LINK. 

0D6E 

06 

4* 

. BYTE 

. » 0003-.-1 

0D6F 

54415045494E+ 

.ASCII 

"TAPEIN" 

0D75 


4 „ 

. 0003 s 3 




n 

7 

ADDR TAPEIN 


0D75 

El 


POP 

H 

OD76 

CD 0D97 


CALL 

TAPGET 




NEXT! 


0D79 

FDE9 

4* 

PC IY 3 




#« 

? 





7 

ft 




II 

3 

* LOAD DICTIONARY INTO MEMORY 



7 

•a* 




it 

7 

•a--a*-a*-a*-a* 





VERB 

"TLOAD"! 

OD7B 

0D6C 

4 

. WORD 

.LINK. 

0D7D 

05 

+ 

. BYTE 

..0004—,-1 

0D7E 

544C4F4144 

4 * 

.ASCII 

"TLOAD" 

0D83 


+ „ 

. 0004 s 3 


0D83 

21 8080 


LX I 

HVDPVAL 5 HL=DICTIONARY START AD 



DR 


0D86 

CD 0D97 


CALL 

TAPGET 

0D89 

2B 


OCX 

H ? DE = .LAST. READ IN 

0D8A 

56 


MOV 

D,M . ' 

0D8B 

2B 


DC X 

H 

ODBC 

5E 


MOV 

E,M 

0D8D 

22 8060 


SHL.D 

DPADDR ? STORE UPDATED DICT PTR 

0D90 

ED53 8064 


SDED 

LASTADDR 5 AND NEW LAST 

0D94 • 

C3 139F 


■JMP 

CLEARE ? CLEAR SCREEN AND GO HO 


ME 

5 

; * 
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5 * READ BLOCK 

: INTO MEMORY 





S * HL“-READ ADDRESS 

* .K. 





7 « 

? ***** 




0D97 


TARGETS 




0D97 

C5 

PUSH 

B 



0D98 

F3 

DI 




0D99 


««SENWs 




0099 

CD 0DB9 

L-ALL 

INCHAR 

M 

7 

AWAIT SENTINEL 



CHARACTER 




0D9C 

79 

MOV 

A, C 



0D9D 

28FA 

JRZ 

..SENW 



0D9F 

FEA5 

CPI 

0A5H 



ODA 1 

20F6 

JRNZ 

„.SENW 



0DA3 

11 4000 

LX I 

D,4000H 

? 

DE“FEEDBACK ST 



ORE ADDR 




0DA6 


..CHRLs 




0DA6 

D5 

PUSH 

D 



0DA7 

CD 0DB9 

CALL 

INCHAR 



ODAA 

D 1 

POP 

D 



ODAB 

2809 

■JRZ 

.- DONE 



ODAD 

71 

MOV 

M,C 



ODAE 

79 

MOV 

A 7 C 



ODAF 

12 

STAX 

D 

H 

V 

GIVE FEEDBACK 



ON SCREEN 




ODBO 

13 

INX 

D 

n 

7 

BUMP FEEDBACK 



ADDR 




ODB 1 

CBA2 

RES 

4,D 

« 

. 7 

CONSTRAIN TO 4 



000H—4FFFH 




0DB3 

28 

INX 

H 



0DB4 

18F0 

•JMPR 

» CURL 



0DB6 


.„DOMES 




0DB6 

FB 

El 




0DB7 

Cl 

POP 

B 



0DB8 

C9 

RET 





. ***** 

; * 

5 * SUBROUTINE TO INPUT A CHARACTER 
S * RETURNS CHARACTER IN C 

5 * AND STATUS OF NONZERO UNLESS A TIMEOUT HAPPE 
NED 

? * IN WHICH CASE ZERO STATUS IS RETURNED 
S * 

s ***** 


0DB9 


INCHARs 





0DB9 

01 0810 

ACTOR 

LX I 

B 7 81 OH 

n 

7 

B=B IT CTR, OTIMEOUT F 

ODBC 

CD ODCD 

. . SBWs 

L* ALL 

INBIT . 

H 

■ 7 ; 

AWAIT START BIT 

ODBF 

2804 


JRZ 

„ . GETL 



ODC1 

OD 


DCR 

C 

U 

NOT YET - DCR TIMEOUT 

O0C2 

20F8 


JRNZ 

. . SBW 

« 

7 

IF COUNTED DOWN 

0DC4 

C9 


RET 


"a ' - 

7 

RETURN ZERO SET 

0DC5 

CD ODCD 

„- GETLs 

CALL 

INBIT 



0DC8 

OF 


RRC 


7 

BIT GOT TO CY 

0DC9 

CB19 


RARR 

C 

■ u ■■ 
.,7 

SHIFT INTO C HO 
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ODCB 

ODGD 

10F3 

DJNZ 

? NOW FALL INTO 
INBIT: 

. . GETL 

INBIT TO EAT THE STOP BIT 

ODCD 

DB99 

IN 

NSITION " 

TAPE10 5 WAIT TILL WE GET A TRA 

ODCF 

5F 

MOV 

E, A 

ODDO 

DB99 

..INBWs IN 

TAPE10 

0DD2 

AB 

XRA 

E 

0DD3 

OF 

RRC 


0DD4 

SOFA 

•JRNC 

WASTE 

TC 

. . INBW 

31 ? WAIT UNTIL SAMPLE POIN 

ODD 6 

3E1F 

+ MV I 

A, 31 

ODDS 

3D 

+..0005: DCR 

A 

ODD’? 

20FD 

+ JRNZ 

..0005,1 

ODDS 

DB99 

IN 

TAPE 10 

ODDD 

AB 

XRA 

E 5 COMPARE TO OLDER STUFF 

ODDE 

E601 

AN I 

1 

ODEO 

C 8 

RZ 

ED 

WASTE 

OF NEXT CYCLEC 

? 0 IF TRANSITION HAPPEN 

29 ? ELSE WAIT UNTIL MIDDLE 

ODE 1 

3E1D 

+ MV I 

A, 29 

0DE3 

3D 

+..0006: DCR 

A 

0DE4 

20FD 

+ JRNZ 

..00061 

0DE6 

3C 

I NR 

A ? RETURN VAL OF 1 

ODE7 

C9 

RET 

? * 

5 * VERB TO WRITE OUT DICTIONARY 
" * 

VERB "TSAVE ,, E 

ODES 

0D7B 

+ „WORD 

.LINK. 

ODEA 

05 

+ .BYTE 

..0007".-1 

ODEB 

ODFO 

5453415645 

: + .ASCII 

+.„0007:1 

"TSAVE" 

ODF 0 

ED5B 8064 

LDED 

LASTADDR ; PUT .LAST. AT END 

ODF 4 

2A 8060 

LHLD 

DPADDR 

0DF7 

73 

MOV 

M,E 

0DF8 

2-3 

I NX 

H 

0DF9 

72 

MOV 

M i D 

ODF A 

•&» *J 

INX 

H 

ODFB 

11 8080 

LX I 

D,DPVAL ? COMPUTE SIZE 

ODFE 

A 7 

ANA 

A 

ODFF 

ED52 

DSBC 

D 

OEOl 

EB 

XCHG 

? HL.=ADDR 3 DE=S IZ E 

0E02 

180C 

JMPR SAVEE 

$ #•&### 

? * 

? * VERB TO WRITE OUT A BLOCK OF BYTES TO TAPE 
? & memacldress numbvtes TAPEOUT « 

5 # 

5 -fr-iHHfr# 
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VERB 

"TAPEOUT"C 

0E04 

ODES'- 

+ „WORD 

.LINK. 

0E06 

07 

+ .BYTE 

. . 0008-.-1 

0EG7 

54415045: 

4F55+ .ASCII 

"TAPEOUT" 

OEOE 


+ . .000853 


OEOE 

D1 

POP 

D 

OEOF 

El 

POP 

H 

OEIO 


SAVEE 5 


OEIO 

C5 

PUSH 

B 

OEll 

F3 

BI 


0E12 

CD 0E5A 

CALL 

LEADER ? WRITE OUT LEADER 

0E15 

0EA5 

MV I 

C i 0A5H ! WRITE SENTINEL 

OE17 

CD 0E2F 

CALL 

OUTBYT 

OEl A 

CD 0E24 

CALL 

WRBLOC ? AMD DATA BLOCK 

OE 1D 

CD 0E5A 

CALL 

LEADER 5 THEM TRAILER 

0E20 

FB 

El 


0E21 

Cl 

POP 

NEXT! 

B 

0E22 

FDE9 

+ PCIY3 




; ***** 

5 * 

* SUBROUTINE 

TO WRITE OUT BLOCK OF BYTES 



5 * HL=LIST, DE 
? * 

; ***** 

=# OF BYTES 

0E24 


WRBLOCs 


0E24 


„ . BYTL.5 


0E24 

4E 

MOV 

C, M 

0E25 

CD 0E2F 

CALL 

OUTBYT 

0E28 


I NX 

H 

0E29 

IB 

DC X 

D 

0E2A 

7 A 

MOV 

A,D 

0E2B 

B3 

ORA 

E 

0E2C 

20F6 

JRNZ 

.„BYTL 

0E2E 

C9 

RET 



5 ***** 

; * 

5 * WRITE OUT A BYTE ONTO TAPE 
S * 

? '* THIS ROUTINE IS TIME SENSITIVE! CHANGE CAREF 
LILLY! 

; * 

5 ***** 

0E2F OUTBYTs 


0E2F 

CD 0E7A 

•p 

CALL 

WRZERO 

; WRITE START BI 



I 

WASTE 

19 

5 FINISH START B 



ITC 




0E32 

3E13 


MV I 

A, 19 


0E34 

3D 

. +..00095 

DCR 

A 


0E35 

20FD 

. - 

JRNZ 

..00093 


0E37 

0608 

TS 

MV I 

B» 8 

5 WRITE OUT 8 BI 

0E39 

CB09 

. WRL s 

RRCR 

C 

5 SHIFT NEXT BIT TO CY 

0E3B 

380A 


JRC 

. . WR1 

■S BRANCH ON BIT VALUE 
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0E3D 

CD 0E7A 


CALL 

WRZERO ; 




WASTE 

19C 

0E40 

3E13 

"1" 

MVI 

A, 19 

0E42 

3D 

+..0010s 

DCR 

A 

0E43 

20FD 

4- 

JRNZ 

..00101 

0E45 

1808 


JMPR 

. . WRE 

0E47 


..WRls 

5 WRITE 

ONE BIT 


0E47 

CD 0E70 


CALL 

WRONE 




WASTE 

42C 

0E4A 

3E2A 

4- 

MVI 

A, 42 

0E4C 

3D 

4*, „ 00 1 1 5 

DCR 

A 

0E4D 

20FD 

4* 

JRNZ 

.. ooi i :i 

0E4F 

0E4F 

10E8 

«„WEEs 

DJNZ 

.„WRL 5 

0E51 

CD 0E7 0 


-CALL 

WRONE ? 




WASTE 

43 C 

0E54- 

3E2B 

4* 

MVI 

A, 43 

0E56 

3D 

4-. „ 00125 

DCR 

A 

0E57 

20FD 

4- 

JRNZ 

„„00 122 

0E59 

C9 


RET 



5 SUBROUTINE TO WRITE OUT 
DER 

0E5A LEADERS 


THIS GUY ZERO 


LOOP TILL BYTE DONE 
WRITE STOP BIT 


SECONDS WORTH OF LEA 


0E5A 

01 0E10 



LX I 

B 5 3600 

OESD 


- 

.LDRls 

WASTE 

43 L 

0E5D 

3E2B 

4* 


MVI 

A i 43 

0E5F 

3D 

+ „ 

0013 s 

DCR 

A 

0E60 

20FD 

4* 


JRNZ 

i.0013 

0E62 

CD 0E70 



CALL 

WRONE 

0E65 

OB 



DC X 

B 

0E66 

78 



MOV 

A, B 

0E67 

B1 



ORA 

C 

0E68 

20F3 



JRNZ 

„ ,LORI 





WASTE 

421 

0E6A 

3E2A 

4* 


MVI 

A, 42 

0E6C 

3D 

•4 u 

.0014s 

DCR 

A 

0E6D 

20FD 

4* 


JRNZ 

„.0014 

0E6F 

C9 



RET 



? SUBROUTINE TO WRITE 1 HALF CYCLE OF A ONE BIT 
5 1/1200 SEC 


0E70 

0E70 

D399 

WRONEs 

OUT 

TAPE10 


• 


WASTE 

461 

0E72 

3E2E 

-b 

MVI 

A 7 46 

0E74 

3D 

+ „» 0015 s 

DCR 

A 

0E75 

20FD 

4* 

JRNZ 

..0015 

0E77 

D399 


OUT 

TAPEIO 

0E79 

C9 


RET 



? SUBROUTINE TO WRITE 1 HALF CYCLE OF A ZERO BIT 
5 1/2400 SEC 

0E7A WRZEROs 

0E7A D399 OUT TAPE10 
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WASTE 

23 r. 

0E7C 

3E17 

4* 

MV I 

A , 23 

0E7E 

3D 

+ « 

,0016s OCR 

A 

•0E7F 

20FD 

4 

.JRNZ 

„ . 0016 D 

0E81 

D399 


OUT 

TAPE10 

0E83 

C9 


RET 




n 





tt 

7 

* 




o 

7 

* INPUT FROM 

PORT 



a 

7 

# port number- 

INPUT inputvalue . 



» 

7 

•H* 




u 

7 

* 8 * 





VERB 

" INPUT" i: 

0E.84 

0E04 

4 

. WORD 

.LINK. 

0E86 

05 

4 

. BYTE 

..0017-.-1 

0E87 

494E505554 

4 

.ASCII 

"INPUT" 

0E8C 



,0017s :\ 


0E8C 

El 


POP 

H 5 

0E8D 

C.5 


PUSH 

B 

0E8E 

44 


MOV 

B,H 

0E8F 

4D 


MOV 

L* 7 L 

0E90 

ED 68 


I IMP 

L 

0E92 

2600 


MVI 

H, 0 

0E94 

Cl 


POP 

B 

0E95 

E5 


PUSH 

NEXT! 

H 

0E96 

FDE9 

4 

PCI YD 




7 





7 





n 

7 

* OUTPUT TO 

PORT 



it 

7 

# value port number OUTPUT ,, 



» 

7 

•a* 




it 

7 






VERB 

n OUTPUT 15 1: 

0E98 

0E84 

4 

„ WORE* 

.LINK. 

<1 

ill 

06 

4 

. BYTE 

..0018-.—1 

0E9B 

4F555450555 

S44 

. ASCI I 

"OUTPUT" 

OEA 1 


4,, 

.0018s ] 


OEA 1 

El 


POP 

H 

0EA2 

D 1 


POP 

D 

0EA3 

C5 


PUSH 

B 

0EA4 

44 


MOV 

B,H 

0EA5 

4D 


MOV 

Ci L 

0EA6 

ED59 


OUTP 

E 

0EA8 

Cl 


POP 
NEXT II 

B 

0EA9 

FDE9 

4 

PC IYII 




» 

7 





u 

7 





5 

•* INTERROGATE PIXEL ON SCREEN 



tt 

7 

•a* x—coord v 

- c oor d PIXEL pixva1 



7 

•a* 




\ ^ 





> 

VERB 

"PIXEL "II 


0E98 + .WORD .LINK. 


HL*PORT # 


OEAB 
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DEAD 

05 

+ .BYTE 

..0019-. 

-1 

OEAE 

504958454C 

+ .ASCII 

"PIXEL" 


0EB3 


+..0019s] 



0EB3 

El 

POP 

H 


0EB4 

Dl 

POP 

D 


0EB5 

C5 

PUSH 

B 


0EB6 

CTjlSj 

MOV 

D,L 


0EB7 

CD 0EC1 

CALL 

GPTXEL 


OEBA 

5F 

MOV 

E, A 


OEBB 

1600 

MV I 

D 7 0 


OEBD 

Cl 

POP 

B 


OEBE 

D5 

PUSH 

NEXT! 

D 


OEBF 

FDE9 

+ PC I Y'J 





5 SUBROUTINE TO 

INTERROG 

ATE PIXEL 

OEC1 

CD 1476 

GPIXEL.S CALL 

R2ACLP 

3 CONVERT TO ABSOLUTE 

0EC4 

47 

MOV 

B,A 

5 B=SHIFT AMOUNT 

0EC5 

3E04 

MV I 

A,4 

5 ASSUME OUTSIDE OF WIND 



OW 



0EC7 

F8 

RM 


5 RETURN IF OUTSIDE 

0EC8 

04 

I NR 

B 

5 B=PIX EL SHIFT AMOUNT 

0EC9 

7E 

MOV 

A» m 

3 A=DATA FROM SCREEN 

OECA 

07 

.„SHFT s RLC 


5 ROTATE UNTIL 

OE.CB 

07 

RLC 


5 WE GOT ADDRESSED PIXEL 

OECC 

10FC 

DJNZ 

..SHFT 


OECE 

E603 

AN I 

o 

3 IN BITS 0 AND 1 

OEDO 

C9 

RET 



OED1 


. „ POX 5 

5 

; * 





? MODIFY POINT 




“ h- coord y~ 

; -a- 

coord mod 

e POINT „ 



3 * VALUES FOR 

m o d e s 




3 * 0-3 

XOR WITH 

PIXEL VALUE 0,1,2, OR 3 



; * 4-7 

PLOP WITH PIXEL VALUE N-4 



3 a- 8-11 

OR WITH 

PIXEL VALUE N -8 


( 

3 * 12-15 

PRIORITY 

WRITE WITH N—12 



3 a- ANY VALUE OUTSIDE THIS RANGE IS TAKEN MOD 16 



5 a- 

; a-a-a-a-a- 





VERB 

"POINT"! 


OED1 

OEAB 

+ .WORD 

.LINK. 


0ED3 

05 

+ .BYTE 

. . 0020 - 1 , 

-1 

0ED4 

504F494E54 

+ .ASCII 

"POINT" 


0ED9 


+.. 0020 s 1 



0ED9 

El 

POP 

H 


OEDA 

7D 

MOV 

At L 


OEDB 

El 

POP 

H 


OEDC 

Dl 

POP 

D 


OEDD 

55 

MOV 

Ei L 


OEDE 

f:5 

PUSH 

B 
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OEDF 

CD 0CF2 

L-ALL- 

INCLOK 

0EE2 

CD OEEB 

CALL 

POINTR 

0EE5 

CD 0CF9 

CALL 

DECLOK 

0EE8 

Cl 

POP 

NEXT! 

B 

0EE9 

FDE9 + 

PC IY 3 



■st-sts-st-st 

•si- 

POINT SUBROUTINE 
A=MODE PARAMETER 
DE= Y,X COORDINATES 
HL=SMASHED 


■st 
•st 
•it 

■st 
•st 

•st-st-st-st-st 


OEEB 

CB57 

POINTR" 

BIT 

2,A ? OF 

DEED 

20 IF 


JRNZ 

PRPLOP ? NC 



•; OR OR 

XOR MODE ~ SET EXPAh 

OEEF 

07 


RLC 


OEFO 

07 


RLC . 


OEF1 

E6FC 


ANI 

OFCH 

0EF3 

D319 


OUT 

XPAIMD 

0EF5 

CB6F 


BIT 

5, A 

0EF7 

2008 


JRNZ 

ORPT 

0EF9 

CD 1476 

XORPT 5 

CALL 

R2ACL..P 

OEFC 

F8 


RM 


OEFD 

F 628 


OR I 

0101000B 

OEFF 

1806 


JMPR 

ORJOIN 

OFOl 

CD 1476 

ORPTs 

CALL 

R2ACLP 

0F04 

F8 


RM 


OF 05 

F 618 


OR I 

0011OOOB 

0F07 

D30C 

ORJOIN: 

OUT 

MAGIC 

0F09 

CBB4 


RES 

61 H 

OFOB 

3680 


MV I 

M,80H 

OFOD 

C9 


RET 


OFOE 

CB5F 

PRPL0P5 

BIT 

3, A ? IF 

OF 10 

202A 


JRNZ 

PRIOR 



? PLOP 

ROUTINE 


OF 12 

C5 

PLOP 5 

PUSH 

B 

OF 13 

D319 

PLOP 1 s 

OUT 

XPAND 

OF 15 

3E08 


MV I 

A,00001OOOB 

OF 17 

D30C 


OUT 

MAGIC 

OF 19 

32 OFFF 


STA 

URINAL 

OF 1C 

3A 4FFF 


LDA 

CRAPPER 

OF IF 

47 


MOV 

B, A 

0F20 

CD 1476 


CALL 

R2ACLP 

OF 2 3 

FA 0F3A 


JM 

PLOPNG 

0F26 

F608 


OR I 

00001OOOB 

0F28 

D30C 


OUT 

MAGIC 

0F2A 

3E8C 


MV I 

A,10001lOOB 

0F2C 

D319 


OUT 

XPAND 

0F2E 

32 OFFF 


C; 

URINAL 

0F31 

3A 4FFF 


LDA 

CRAPPER 

OF34 

4F 


MOV 

C, A 

0F35 

78 


MOV 

A, B 


XOR? 


WITH PIXEL VALUE 


S IT PLOP' 
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0F36 

AE 


XRA 

M 

0F37 

A 1 


ANA 

c 

0F38 

AE 


XRA 

M 

0F39 

77 


MOV 

M, A 

0F3A 

Cl 

PLOPNGs POP 

B 

0F3B 

C9 


RET 




n 

7 

PRIORITY 


0F3C 

C5 - 

PRIORS PUSH 

B 

0F3D 

E603 


AMI 

o 

0F3F 

4F 


MOV 

C 7 A 

0F40 

CD OEC1 


CALL 

GPIXEL 

0F43 

B9 


CMP 

C 5 COMPARE TO WHATS THERE 

0F44 

30F4 


JRNC 

PLOF'NG 

OF 4 6 

79 


MOV 

A 7 C 

0F47 

1 SC A 


JMPR 

PL0P1 








tt 

7 





it 

V 

* TERSE CIRCL 

E COMMAND 



tt 

7 

* X-COCT d Y-“ 

coord radius mode CIRCLE . 



V 





It 

7 

* THIS CIRCLE 

ROUTINE WAS ADAPTED FROM THE 



n 

* BRESENHAM C 

IRCLE ALGORITHM PUBLISHED IN 



« 

7 

* CACM FEB 1977 



SJ 

7 





tt 

7 






VERB 

"CIRCLE" T 

0F49 

OED 1 

4* 

.. WORD 

.LINK, 

0F4B 

06 

4* 

„ BYTE 

.. 0021-.-1 

0F4C 

434952434C 

:45+ 

.ASCII 

"CIRCLE" 

0F52 


4 „ 

. 0021 s 3 





FRAMEI 


0F52 

FDE5 

4* 

PUSH 

Y 

0F54 

FD21 0000 

+ 

LX I 

Y 7 0 

0F58 

FD39 

4* 

DADY 

SP3 

0F5A 

C5 


PUSH 

B 

0F5B 

21 0001 


LX I 

Hvl 5 XA=1 

0F5E 

CD 0CF2 


CALL 

IMCLOK 

OF'61 

22 8013 


SHLD 

CIRXA 

0F64 

2B 


DCX 

H ; HL=0 

0F65 

FD5E04 


MOV 

E,FR.P2(Y) 5 DE=R 

0F63 

FD5605 


MOV 

D,FR„P2+1(Y) 

0F6B 

D5 


PUSH 

D 

0 F 6 C 

IB 


DCX 

D 

0 F 6 D 

CD 1027 


CALL 

CIRPNT ? DRAW AT 0 ,R 

0F70 

EB 


XCHG 


0F71 

CD 1058 


CALL 

NEGHL 

0F74 

EB 


XCHG 


0F75 

CD 1027 


CALL 

CIRPNT ■; AND AT 0,~-R 

0F73 

El 


POP 

H ? R IS IN HL 

0F79 

29 


DAD 

H 

0F7A 

2B 


DCX ' 

H 

0F7B 

22 8015 


SHLD 

CIRYA 

0F7E 

2B 


DCX 

H 5 DELTA=YA-1 

0F7F 

22 8017 


SHLD 

CIRDEL 
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0F82 

0F82 

2A 8017 

CLOOF'S 

LHLD 

CIRDEL 

7 

D=DELTA*2 

0FS5 

29 


DAD 

H 



OF 86 

GB7C 


BIT 

7,H 

u 

7 

IS DCO? 

0F88 

201C 


.JRNZ 

DMINUS 

7 

YEP 

0F8A 

ED5B 8015 

D-YA 

LDED 

CIRYA 

a 

7 

NO, COMPUTE D= 

0F8E 

A7 


ANA 

A 



0F8F 

ED52 


DSBC 

D 



0F91 

CB7C 


BIT 

7 iH 

■ 

7 

MOW IS DCO? 

0F93 

2029 

MOVES 

.JRNZ 

CBOTH 

a 

7 

YEP - DO BOTH 

0F95 

2A 8013 


LHLD 

CIRXA 

a 

7 

NO XA=XA+2 

0F98 

23 


INX 

H 



0F99 

23 


I NX 

H 



0F9A 

22 8013 


SHLD 

CIRXA 



0F9D 

EB 


XCHG 




0F9E 

2A 8017 


LHLD 

CIRDEL 

7 

DELT A=DELT A"X A 

OFA1 

A7 


ANA 

A 



OF A 2 

ED52 


DSBC 

D 

- • 


0FA4 

1831 

5 D C 0 

JMPR 

CASE 

DSTOR 



0FA6 

0 F A (j 

ED5B 8013 

DMINUS: 

LDED 

CIRXA 

a 

7 

D=D+XA 

OFAA 

19 


DAD 

D 



OFAB 

CB7C 


BIT 

71 H 

a 

7 

IF DCO 

OFAD 

280F 


JRZ 

CBOTH 

u 

7 

BUMP BOTH 

OFAF 

2A 8015 


LHLD 

CIRYA 

a 

ELSE YA=YA-2 

0FB2 

2B 


OCX 

H 



0FB3 

2B 


DCX 

H 



0FB4 

22 8015 


SHLD 

CIRYA 



0FB7 

EB 


XCHG 




0FB8 

2A 8017 


LHLD 

CIRDEL 

M 

7 

DELT A=DELT A+YA 

OFBB 

19 


DAD 

D 



OFBC 

1819 


JMPR 

DSTOR 





? INCREMENT BOTH 



OFBE 

2A 8013 

CBOTH: 

LHLD 

CIRXA 

a 

7 

XA=XA+2 

OF Cl 

23 


INX 

H 



0FC2 

23 


INX 

H 



0FC3 

22 8013 


SHLD 

CIRXA 



0FC6 

EB 


XCHG 




0FC7 

2A 8015 


LHLD 

CIRYA 

a ' 
7 

YA=YA-2 

OFCA 

2B 


DCX 

H 



OFCB 

2B 


DCX 

H 



OFCC , 

22 8015 


SHLD 

CIRYA 



QFCF 

ED4B 8017 

-XA 

LBCD 

CIRDEL 

a 

7 

DELT A-DELT A+YA 

0FD3 

09 


DAD 

B 



0FD4 

A7 


ANA 

A 



0FD5 

ED52 


DSBC 

D 



0FD7 

22 8017 

DSTOR: 

SHLD 

CIRDEL 



OFDA 

2A 8015 


LHLD 

CIRYA 



OFDD 

2B 


DCX 

H 

? IF NEG, 

0 OR 1 
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OFDE 

2B 

OCX 

H 


OFDF 

CB7C 

BIT 

7,1-1 


OFE1 

OOI £7 
.iC. O X L. 

•JRZ 

. . CYOK 




5 CLOSE TO DONE 

DRAW LAST TWO 

POINTS 

0FE3 

11 0000 

LX I 

D» 0 


0FE6 

FD6E04 

MOV 

L,FR.P2(Y) 

5 HL=R 

0FE9 

FD6605 

MOV 

H, FR» F‘2+1 < Y) 


OFEC 

CD 1027 

CALL 

CIRPNT 3 AT R,0 

1 

OFEF 

CD 1058 

CALL 

NEGHL 


0FF2 

CD 1027 

CALL 

CIRPNT 3 AND -R 

: 7 0 



5 WE ARE DONE 



OFFS 

CD 0CF9 

CALL 

DECLOK 


OFFS 

Cl 

POP 

B 

5 YES - GO HOME 



UNFRAMEC 


OFF? 

FDEl 

+ POP 

y:i 


OFFB 

El 

POP 

H 


OFFC 

El 

POP 

H 


OFFD 

El 

POP 

H 


OFFE 

El 

POP 

H 




NEXT! 



OFFF 

FDE9 

+ PCIY! 



1001 


„.CYOKs 





3 SUBROUTINE TO 

DRAW 4 POINTS 




3 AT X, Y -X,Y - 

X, -Y AND X,—Y 


1001 

2A 8015 

DRAW43 LHLD 

CIRYA 


1004 

CD 1050 

CALL 

DIV2HL. 


1007 

E5 

PUSH 

H 


1008 

EB 

XCHG 



1008 

2A 8013 

LHLD 

CIRXA 


100C 

CD 1050 

CALL 

DIV2HL 


100F 

CD 1027 

CALL 

CIRPNT 3 X , Y 


1012 

EB 

XCHG 



1013 

CD 1058 

CALL 

NEGHL 


.1016 

EB 

XCHG 



1017 

CD 1027 

CALL 

CIRPNT 


101A 

CD 1058 

CALL 

NEGHL 

3 -X 

10 ID 

CD 1027 

CALL 

CIRPNT 

5 -X,—Y 

1020 

m 

POP 

D 

3 —X, Y 

1021 

CD 1027 

CALL 

CIRPNT 


1024 

f ;3 OF82 

JMP 

CLOOP 


1027 

E5 

CIRPNTs PUSH 

H 


1028 

D5 

PUSH 

D 


1029 

FD4E08 

MOV 

C,FR.P4(Y> 

3 GET X TRANS FA 



CTOR 



102C 

FD4609. 

MOV 

B,FR.P4+1CY) 


102F 

09 

DAD 

B 




5 GROSS CLIP CHECK 


1030 

7D 

MOV 

A, L 

5 SIGN OF L TO C 



Y 



1031 

07 

RLC 



1032 

7C 

MOV 

A, H 


1033 

CEOO 

AC I 

0 


1033 

2016 

JRNZ 

. .CIRX 


1037 

EB 

XCHG 



1038 

FD4E06 

MOV 

C,FR.P3(Y) 

3 Y TRIP 




PAGE 19 


TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 


103B 

FD4607 

MOV 

B,FR.P3+1(Y> 

103E 

09 

DAD 

B 

103F 

7D 

MOV 

A ? L. 

1040 

07 

RLC 


1041 

7C 

MOV 

A * H 

1042 

CEOO 

AC I 

0 

1044 

2007 

JRNZ 

..C1RX 

1046 

55 

MOV 

LuL 

1047 

FD7E02 

MOV 

A 7 FR.PI(Y) 

104 A 

CD OEEB 

CALL 

POINTR 

104D 

D1 

..CIRXs POP 

D 

104E 

El 

POP 

H 

104F 

C9 

RET 




" DIVIDE HL BY 

2 

1050 


DIV2HLS 


1050 

A7 

ANA 

A 

1051 

7C 

MOV 

A, H 

1052 

IF 

RAR 


1053 

67 

MOV 

H, A 

1054 

7D 

MOV 

A i L. 

1055 

IF 

RAR 


1056 

6F 

MOV 

L? A 

1057 

C9 

RET 




S NEGATE CONTENTS OF HL 

1058 


NEGHLs 


1058 

7C 

MOV 

A, H 

1059 

2F 

CM A 


105 A 

67 

MOV 

H, A 

105B 

7D 

MOV 

A ? L; 

105C 

2F 

CM A 


1 OSD 

6F 

MOV 

L.7 A 

105E 

23 

I NX 

H 

105F 

C9 

RET 




“ * 

? TERSE SCROL 

.L COMMAND 



“ * x—coord- v ~ 
SCROLL , 

5 * 

; -fi-H-H*# 

“ c o o r d x~~s i y— 



VERB 

"SCROLL"C 

1060 

0F49 

+ ..WORD 

.LINK. 

1062 

06 

+ .BYTE 

.. 0022-.-1 

1063 

5343524F4C 

:4C+ .ASCII 

"SCROLL" 

1069 


+ . * 00225] 


1069 


SCROLE5 




FRAMEC 


1069 

FDE5 ; 

+ PUSH 

Y 

106B 

FD21 0000 

+ LX I 

Y, 0 

106F 

FD39 

+ DADY 

SPII 

1071 

05 

PUSH 

B 

1072 

CD 1 2C5 

CALL 

CLIP ; CLIP 

1075 

384E 

•JRC 

..NOSC 



? CONVERT X SIZE TO BYTES 

1077 

FD7E06 

MOV 

A,BX.XS < Y) 


scro1 I amount 
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107 A 

C603 


ADI 

o 

•J 


107C 

OF 


RRC 



107D 

OF 


RRC 



107E 

E63F 


ANI 

3FH 


1080 

4F 


MOV 

L* y A 



-5 

it 

*1 

WHICH DIRECTION? 


1081 

FD7E02 


MOV 

A,BX.MOD(Y) 

1084 

A7 


ANA 

A 


1085 

283E 


•JRZ 

. „ NOSC 


1087 

11 FFD8 


LX I 

D, -40 

5 ASSUME MINUS 

108 A 

FD4604 


MOV 

B,BX.YS(Y) 

1 OSD 

FD7E08 


MOV 

A,BX . Y(Y) 

1090 

FA 1098 


•JM 

.„MINU 




s 

POSITIVE CASE 



1093 

11 0028 


LX I 

D, 40 


1096 

80 


ADD 

B 


1097 

3D 


DCR 

A 


1098 

05 

II 

.MINUS DCR 

B 

5 FUDGE Y SIZE 

1099 

282A 


•JRZ 

. .NOSC 

? SKIP IF WAS ONLY 1 

109B 

D5 


PUSH 

D 


109C- 

57 


MOV 

D, A 


109D 

FD5E0A 


MOV 

E,BX „ X < Y) 

1 OAO 

CD 1491 


L- ALL 

R2A 


10 A3 

D1 


POP 

D 


10A4 

FD7E02 

T 

MOV 

A , BX.MOD(Y) ? A=SCROLL AMOUN 

10A7 

CD 1471 

CALL 

ABS 




? 

A=SCROLL. AMOUNT, DECLINE DISPLACEMENT 



n 

C=HORIZONTAL BYTES, B 

= VERTICAL LINES 



u 

REPEAT SCROLLAMOUNT TIMES ... 

1OAA 

C5 

„ 

. SCR1s PUSH 

B 


10AB 

F5 


PUSH 

H 




u 

r 

REPEAT Y SIZE 

TIMES . 

II u 

.1. OAC 

C5 

„ 

. SCR25 PUSH 

B 


10 AD 

D 5 


PUSH 

D 


10AE 

0600 


MV I 

B, 0 


10B0 

EB 


XCHG 



10B1 

19 


DAD 

D ' 


10B2 

p' csj 


PUSH 

H 


10B3 

EDBO 


LDIR 


5 TRANSFER ONE HORIZONTA 



L 

LINE 



10B5 

El 


POP 

H 


10B6 

D1 


POP 

D 


10B7 

Cl 


POP 

B 


10B8 

10F2 


DJNZ 

. . SCR2 




n 

7 

CLEAR AWAY LA: 

ST LINE 

SO WE DQN. X T GET STREAK IES 

10BA 

3600 

n 

.KILLS MVI 

M, 0 


1OBC 

23 


I NX 

H 


1OBD 

OD 


DCR 

c 


10BE 

20FA 


JRNZ 

u n l\ ILL 


1OCO 

El 


POP 

H 


loci 

Cl 


POP 

B 


10C2 

3D 


DCR 

A 


10C3 

20E5 


JRNZ T 

. . SCR! 
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10C5 

10C5 

Cl 

..NQSCs 

POP 

B 




UNFRAMEE 

10C6 

FDE'l 

4* 

POP 

YU 

IOCS 

El 


POP 

H 

10C9 

El 


POP 

H 

10CA 

El 


POP 

H 

1OCB 

El 


POP 

H 

10CC 

El 


POP 

NEXTC 

H 

1OCD 

FDE9 

4 

PCIY3 









" * 





S * SNAP 




? * x~~r 

NAP . 

$ * 

oord Y-- 

c o o rd x-size v-size arravadd re ss S 


* 

5 * THI 

S VERB 

-TAKES A PICTURE'- OF A RECTANGULAR 



AREA 





5 # OF 

THE SCREEN. THIS IMAGE IS STORED.OFFSCRE 



EN IN 
; * AN 

ARRAY. 

THE FIRST TWO WORDS OF THIS ARRAY 



CONTAIN 




? * THE 
; * 

X AND 

Y SIZE OF THE SNAPPED AREA. 



» 

VERB 

"SNAP 11 1 

1OCF 

1060 

+ 

. WORD 

.LINK. 

10D1 

04 

4* 

„ BYTE 

„.0023—» —1 

10D2 

534E4150 

4* 

.ASCI I 

"SNAP" 

10D6 


4 « tt 0023S 

1 





FRAME i: 


10D6 

FDE5 

•4 

PUSH 

Y 

1008 

FD21 0000 

4* 

LX I 

Y i 0 

1ODC 

FD39 

4* 

DADY 

SPT 

10DE 

C5 


PUSH 

B 

10DF 

CD 12C5 


CALL 

CLIP 

10E2 

387C 


JRC 

„.MOSN 

10E4 

CD 0CF2 


CALL 

IMCLOK 

10E7 

DDES 


PUSH 

X 

10E9 

FD7E06 


MOV 

A,BX.XS(Y) 5 TRANSFER SIZE 

10EC 

FD6E02 


MOV 

Ls BX.MOD(Y > 5 HL=POINTER 

1'OEF 

FD6603 


MOV 

H,BX.MOD+1< Y) 

10F2 

77 

F PAT 

MOV 

M,A ? STUFF X SIZE 0 

10F3 



INX 

H 

10F4 

3600 


MV I 

M ■, 0 

1 OF 6 

23 


INX 

H 

10F7 

C603 


ADI 

3 ? X SIZE TO BYTES 

10F9 

OF 


RRC 


10FA 

OF 


RRC 


1OFB 

E63F 


AN I 

3FH 

10FD 

5F 

CODE 

MOV 

E,A ? REMEMBER FOR TRANSFER 

1OFE 

FD5604 


MOV 

DBX „ YS (Y) f MOVE OVER Y SI 
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X X .X X 


ZE TOO 


1101 

72 

MOV 

M 1 D 



1102 


INX 

H 



1103 

3600 

MV I 

M,0 



1105 

*70 

.u w 

INX 

H 



1106 

E5 

PUSH 

H 



1107 

DDE1 

POP 

X 5 I X“ 

BEST 

ARRAY PTR 

1109 ' 

05 

PUSH 

D 



110A 

FD5E0A 

MOV 

E,BX„X(Y> 

» 

7 

E=X 

HOD 

FD7E08 

MOV 

Aj BX „ Y(Y) 

tt 

7 

FUDGE Y TO UPP 



ER 




1110 

O 7 

ADD 

D 



1111 

3D 

DCR 

A 



1112 

57 

MOV 

Di A ■, TO 

D 


1113 

CD 1491 

CALL 

R2A 



1116 

E5 

PUSH 

H 

W 

7 

IY=SOURCE POIN 



TER 




1117 

FDE1 

POP 

Y 



1119 

4F 

MOV 

C, A 

? 

C=SHIFT AMOUNT 

111A 

D1 

POP 

D 

n 

7 

DE=SIZES 

11 IB 

2827 

JRZ 

* . „ EASY 

n 

7 

JUMP ON EASY C 



ASE 

5 CASE OF FIRE 
BOUNDARY 

T PIXEL TO SNAP 

NOT 

BEING ON BYTE 

11 ID 

D5 

„„HARD; PUSH 

D 



HIE 

1120 

FDE5 

FD6600 

PUSH 

MOV 

Y 

H> 0< Y) 

V 

H=FIRST BYTE T 



0 START 




1123 

FD23 

„ HDBLs INX 

Y 

*.« 

BUMP SOURCE 

1125 

FD5600 

MOV 

D 1 0 (Y) 

7 

D=NEXT GUY 

1128 

6A 

MOV 

L,D 

X 

V 

INTO L AS WELL 

1129 

41 

MOV 

B,C 

3 

REINIT SHIFT A 



MT 




112 A 

29 

., HDSLs DAD 
PIXELS 

H 

u 

? 

SHIFT OVER SA 

112B 

29 

DAD 

LJ 

ri 



112C 

1OFC 

DJNZ 

„ .HDSL 



112E 

DD7400 

MOV 

0 ( X ) , H 

u 

? 

STUFF TO BEST 

1131 

62 

MOV 

H,D 

? 

SETUP FOR NEXT 



ITERATION 




1132 

DD23 

INX 

X 



1134 

ID 

DCR 

E 



1135 

20EC 

JRNZ 

„. HDBL 



1137 

FDE1 

POP 

Y 

a 

? 

TO NEXT LINE 

1139 

11 0028 

LX I 

D 7 4U 



113C 

FD19 

DADY 

D 



113E 

D1 

PUF* 

D 



113F 

15 

DCR 

D ' : 



1140 

20DB 

JRNZ 

»„ HARD 



1142 

181A 

JMF’R 

, „ SNPD 




/ Tv - '' 

5 FASTER LOOP 

FOR ZERO SHIFT 

AMOUNT CASE 

.1.144 

01 0028 

.„EASYs LX I 

B 7 40 



1147 

7B 

.»EZLLs MOV 

A, E ; A-"TEMP 

BYTE COUNTER 







PAGE 
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1148 

FDE5 


RUSH 

Y 

114A 

FD6E00 

..EZBL: 

MOV 

L. i 0 (Y) 

114D 

DD7500 


MOV 

0 < X ) , L 

1150 

DD23 


INX 

X 

1152 

FD23 


INX 

Y 

1154 

3D 


DCR 

A 

1155 

20F3 


JRNZ 

« «EZBL 

1157 

FDE1 


POP 

Y 

1159 

FD09 


DADY 

B 

115B 

15 


DCR 

D 

115C 

20E9 

*« 

■JRNZ 

« n E.ZLL 

115E 

115E 

DDE1 

. . SNF'D: 

POP . 

X 

1160 

Cl 

..NOSN: 

POP 

B 

1161 

CD 0CF9 


CALL 

DECL.OK 

1164 

FDE1 

+ 

UNFRAMEC 

pop y:i 

1166 

E1 


POP 

H 

1167 

El 


POP 

H 

1168 

El 


POP 

H 

1169 

El 


POP 

H 

116A 

El 


POP 

H 

116B 

FDE9 

+ 

NEXT! 

PCIYII 



; # -h-h- 

? * 


D=OUTER LOOP CTR 


? * TERSE SHOW COMMAND 

5 -if x—cpord y— coord mag i c-reg-va 1 arravaddress S 
HOW 


; * 

5 * THIS COMMAND DISPLAYS A PREVIOUSLY SNAPPED 0 
BJECT 

5 * ON THE SCREEN AT THE SPECIFIED PLACE. THE P 
ARAMETER 

? * in a a i c-reg-va 1 HAS THE FOLLOWING FORMAT: 

; * 

.I... U.n. .n,M n. iT jj „ M , ..... rrr iw rtrrt » 

* *k# ** "7 « /„ « tz* » /j « O « » 1 

n / n n i w l w tt . w t u 4^. u 

s 0 : 

S'. * s XPAND ON COL: XF'ANB OFF COL: FLOP s XOR : 
OR : XPAND: 

« M, M M n w w 

f H n n « « B 



5 * 

VERB 11 SHOW " I 


116D 

1OCF 

+ 

.WORD 

.LINK. 

116F 

04 

“I" 

. BYTE 

..0024“. 

1170 

53484F57 

+ 

.. ASCI I 

'.'SHOW" 

1174 

1174 

El 

4- „ 

„ 0024 s 3 

POP 

H 
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1175 

D1 


POP 

D 

1176. 

7B 


MOV 

A, E ; 

1177 

1600 


MV I 

D i 0 



? MAKE 
POSES 

A FAKE 

-'BOX-' STACK 

1179 

5E 


MOV 

E» M ? 

117A 

D5 


PUSH 

D 

.117B 

23 


INX 

H 

117C 

jil J 


INX 

H 

117D 

5E 


MOV 

E,M 

117E 

D5 


PUSH 

D 

117F 

C5 


PUSH 

B 5 




FRAME! 

1180 

FDE5 

+ 

PUSH 

Y 

1182 

FD21 0000 

4- 

L..XI 

Y ■> 0 

1186 

FD39 

4* 

DADY 

sp :i 

1188 

E*5 


PUSH 

H 

1189 

F5 


PUSH 

PSW 

118 A 

E5 


PUSH 

H 

11 SB 

CD 12C5 


CALL 

CLIP 

118E 

El 


POP 

H 

U8F 

y At 


JRC 

. „ NOSH 

1191 

FD7E04 


MOV 

A,BX.YS(Y) 



5 CHECK 

FOR S 

IZE SHRINKO - 

1194 

BE 


CMP 

M 5 

1195 

2060 


JRNZ 

„.NOSH ? 

1197 

47 


MOV 

B,A ; 

1198 

2B 


DCX 

H ? 

1199 

2B 


DCX 

H 

119A 

FD7E06 


MOV 

A,BX.XS(Y) 

119D 

BE 


CMP 

M 

119E 

2057 


JRNZ 

, . NOSH 

11 AO 

C603 


ADI 


11A 2 

OF 


RRC 


11 A3 

OF 


RRC 


11A4 

E63F 


AN I 

3FH 

11A6 

4F 


MOV 

L* v A 



? GET AND FIX 

COORDINATES 

11A7 

FD7E08 


MOV 

A»BX.Y(Y) 

11AA 

80 


ADD 

B ; 

11AB 

57 


MOV 

Dv A 

11 AC 

FD5E0A 


MOV 

E,BX„X(Y) 

11AF 

CD 1491 


CALL 

R2A 

11B2 

57 


MOV 

D,A 

11B3 

FI 


POP 

PSW 

11B4 

07 


RLC 

7 

11B5 

07 


RLC 


11B6 

07 


RLC 


11B7 

07 


RLC 


11B8 

CD 0CF2 


L* A L. L. 

INCL.OK 

11BB 

D319 


OUT 

XPAND 5 

11BD 

OF 


RRC 


11 BE 

E678 ‘ 


AN I 

78H 

11 CO 

B2 


•ORA 

D 


SAVE MODE 

FRAME FOR CLIPPING PUR 
PUT SIZES ON STACK 

SAVE B TOO 


• IF SO DO NOT DRAW 
DID Y SIZE SHRINKO? 
YES 
NO 

TO X SIZE 
•; LOOK AT X SIZE 


COMPUTE X SIZE IN BYTE 


FUDGE TO TOP OF BOX 


RESTORE MODE 
LINEUP XPAND STUFF 


SET EXPAND COLORS 










TDL Z80 CP/M DISK ASSEMBLER VERSION 2,21 


1-1 Cl 

D30C 


OUT 

MAGIC 

lies 

CBB4 


RES 

6i H 

11C5 

D 1 


POP 

D 

11 C 6 

13 


I NX 

D 

11C7 

13 


I NX 

D 

11 C 8 

EB 


XCHG 


11C9 

CB5F 


BIT 

MRXF'ND j A 

11CB 

2012 


JRNZ 

. «MWX 



5 NORMAL? WRITE 


11 CD 

AF 


XRA 

A 

11CE 


.»NWRT s 



11 CE 

f:Fi 


PUSH 

B 

11 CF 

D5 


PUSH 

D 

11 DO 

47 


MOV 

B, A 

11 D 1 

EDBO 


LDIR 


1 IDS 

J. JL~ 


STAX 

D 

11D4 

D 1 


POP 

D 

11D5 

EB 


XCHG 


11 D 6 

0E28 


MVI 

C 7 BYTEF'L 

11 D 8 

09 


DAD 

B 

11D9 

EB 


XCHG 


11 DA 

Cl 


POP 

B 

11DB 

1 OF 1 


DJNZ 

■„NWRT 

HDD 

181A 


JMF'R 

, „ OK 



; WRITE 

EXPANDED 

1 IDF 

EB 

..MWX s 

XCHG 


11 EO 

C5 

. .. MWX 1 s 

PUSH 

B 

11 E 1 

E5 


PUSH 

H 

11 E 2 

41 


MOV 

B 7 C 

LIES 

1A 

„„MWX2s 

LDAX 

D 

11E4 

13 


INX 

D 

11E5 

77 


MOV 

M, A 

11E6 

23 


INX 

H 

11E7 

77 


MOV 

M, A 

11E8 

.id •“» 


INX 

H 

11E9 

10F8 


DJNZ 

.»MWX2 

11EB 

70 


MOV 

M 7 B 

11 EC 

<".* 


INX 

H 

11 ED 

70 


MOV 

M,B 

11EE 

El 


POP 

H 

11EF 

0E28 


MVI 

C, BYTEF'L 

11 FI 

09 


DAD 

B 

1.1.F2 

Cl 


POP 

B 

11F3 

10EB 


DJNZ 

..MWX1 

11F5 

1802 


JMF'R 

„ . OK 

11F7 

FT 

„.NOSH! 

POP 

PSW 

11F8 

FI 


Pup 

PSW 

11F9 


» . OKs 

UNFRAMEC 

11F9 

FDE1 

+ 

POP 

Y3 

1IFB 

CD 0CF9 


CALL 

DECLOK ' 

11FE 

Cl 


POP 

B 

1 IFF 

El 


POP 

H 

1200 

E 1 


POP 

H 

1201 

El 


POP 

H 
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MAKE ADDRESS MAGIC 

MOVE PAST Y SIZE 

HL=SOURCE, DEADEST 

5 EXPAND WANTED 
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CP/M DISK ASS 
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1202 

El 

POP 

NEXT! 

H 


1203 

FDE9 

+ PCIYD 





« ##### 

$ K 

V. * TERSE BOX 

COMMAND 




S # x-coord y~* 
? * 

coord x-sizs Y-size 

mode BOX » 



5 * THIS ROUTINE PAINTS VERTICAL S 

TRIPES 



? * FIRST IT P 

AI NTS A RIGHT JUSTIFIED STRIPE 



5 * SO WE MOVE 

OVER TO A BYTE BOUNDARY 



? * THEN WE PAINT AS MANY SOLID BYTES AS WE 



! # CAN. FINALLY WE PAINT A LEFT 

JUSTIFIED 



“ * STRIPE TO 
$ * 

$ 

FINISH OFF THE BOX. 




VERB 

"BOX"! 


1205 

1166 

+ „WORD 

.LINK. 


1207 

03 

+ „BYTE 

. . 00.25-.-1 


1208 

424F5S 

+ .ASCII 

"BOX" 


120B 


+ „ * 0025 s ] 



1206 


DOBOX s 





FRAME! 



1206 

FDE5 

+ PUSH 

Y 


120D 

FD21 0000 

+ LX I 

Y,0 


1211 

FD39 

+ DADY 

SPD 


1213 

C5 

PUSH 

B 


1214 

CD 0CF2 

CALL 

INCLOK 


1 23 7 

CD 12C5 

CALL 

CLIP 


121A 

386F 

* « SKPL« JRC 

..SKIP 5 

ABORT IF TOTAL 



OFFSCREEN 

5 WE NOW HAVE 

REASONABLE STUFF ON 

OUR STACK 



? LETS DEAL WITH MODE STUFF NOW 


121C 

FD4E02 

MOV 

C»BX„MOD(Y) 


121F 

79 

MOV 

A v L* ? 

IS MODE ZERO? 

1220 

A7 

ANA 

A 


1221 

2868 

JR Z 

..skip ; 

YEP --- IGNORE 

1223 

E604 

AN I 

4 ; 

ISOLATE WRITE 



MODE 



1225 

32 8012 

ST A 

WRMODE 


1228 

79 

MOV 

At C S 

ISOLATE PIXEL 



NUMBER 



1229 

E603 

AN I 

'Z* 


1226 

4F 

MOV 

C,A 


122C 

0600 

MVI 

B, 0 ; 

LOOKUP BYTE OF 



THOSE GUYS 



122E 

21 13F2 

LX I 

H,MSKTBL 


1231 

09 

DAD 

B 


1232 

7E 

MOV 

A,M 


1233 

32 8011- 

STA PIXVAL 

S NOW THE EXCITING BOX PAINTING SD 

"ARTS 

1236 

FD5E06 

MOV 

E»BX.XS(Y> 


1239 

. 76 

... BOXPs MOV 

A,E 


123A 

A 7 

ANA 

A 


J. O ' 

284E 

JRZ v 

..SKIP ; SKIP IF 

ALL DONE OR NO 
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ME TO DO 




5 IS MOD(X v 4) = 

1? 





” IF SO WE IS 

ON A BYTE BOUNDARY 


123D 

FD7E0A 

MOV 

A,BX.X<Y> 



1240 

E603 

AMI 

O 



1242 

FEOl 

CP I 

1 



1244 

200E 

■JRNZ 

. .MNZ 





? YES -- IS XS> 

4? 



1246 

7B 

MOV 

A 7 E 



1247 

FE04 

CPI 

4 



1249 

3834 

JRC 

..XSL4 i 





? YS IS >4 - SO PAINT A FULL 

STRIPE 

124B 

OEFF 

MV I 

C,OFFH 


DO WHOLE KIT A 



ND KABOODLE 




124D 

CD 1298 

CALL 

..STRC 



1250 

1604 

MV I 

D, 4 

u 

7 

A=X ADDR SUBTR 



ACTOR 




1252 

18 IF 

JMF'R 

..XSTF 





? COME UP WITH 

A BITSTRING TO 

PUT 

US ON A BYTE B 



OUNDARY 






? IF SIZE IS’”NT LARGE ENOUGH 

COME 

UP WITH THE ON 



E AND ONLY 






5 MASK WE WILL 

NEED. 



1254 

3D 

..MNZs DCR 

A 



1255 

E603 

AN I 

o 



1257 

4F 

MOV 

C 7 A 



1253 

3E04 

MV I 

A, 4 



125 A 

91 

SUB 

c 



125B 

BB 

CMP 

E 


COMPARE TO XS 

125C 

3301 

JRC 

. XSBG 



125E 

7B 

MOV 

A, E 

tt 

? 

MOD IS BIGGER 

125F 

47 

..XSBGs MOV 

B •? A 

? 

B=MIN 

1260 

57 

MOV 

D, A 



1261 

AF 

XRA 

A 

tt 

7 

FORM BIT MASK 

1262 

OF 

L.BITFs RRC 




1263 

OF 

RRC 




1264 

F6C0 

OR I 

11000000B 



1266 

10 FA 

DJNZ 

. .BITF 



126*3 

41 

MOV 

B 7 C 





5 APPLY SHIFT 

AMOUNT 



1269 

OF 

..D0SF5 RRC 




126A 

OF 

RRC 




126B 

E63F 

ANI 

3FH 



126D 

10FA 

DJNZ 

. . DOSF 



126F 

4F 

MOV 

L? A 

a 

V 

REMEMBERIZE 

1270 

CD 1298 

CALL 

..STRC 



1273 

7 A 

..XSTFS MOV 

A 7 D 



1274 

FDS60A 

ADD 

BX.X(Y) 


UPDATE X COORD 



I NATE 




1277 

FD770A 

MOV 

BX.X( Y) 7 A 



127 A 

7B 

MOV 

A,E 

7 

AND PIXELS'LEF 



T (XS) 




127B 

92 

SUB 

D ' 



127c 

5F 

MOV 

E,A 



127D 

18BA 

JMF'R 

„ . BOXP 

■ T i 

LOOP BACK FOR 
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MORE 

? PAINT A FINAL STRIPE 
5 THIS MASK IS ALWAYS LEFT JUSTIFIED 


127F 

47 

r X ‘z» L 4 “ 

MOV 

B, A 


1280 

AF 


XRA 

A 


1281 

OF 

« r X8 LA » 

RRC 



1 282 

OF 


RRC 



1283 

F6C0 


OR I 

11 OOOOOOB 


1285 

1 OF A 


DJNZ 

..XSLA 


1287 

4F 


MOV 

C, A 


1288 

CD 1298 


CALL 

.. . STRC 


128B 


.SKIPS 




128 B 

CD 0CF9 


UALL 

DECLOK 


12 8 EE 

Cl 


POP 

B 





UNFRAMEr 


128F 

FDEl 

HI** 

POP 

y:i 


1.291 

El 


POP 

H 


1292 

El 


POP 

H 


1293 

El 


POP 

H 


1294 

El 


POP 

H 


1295 

El 


POP 

H 





NEXTC 



1296 

FDE9 

•*{** 

PC I YU 





; loop 

TO PAINT A VERTICAL BOX 

STRIPE 



S MASK 

TO USE 

PASSED IN C 


J 298 

D5 

..STRCs 

PUSH 

D 


1299 

FD5608 


MOV 

D»BX.Y(Y) 


129C 

FD5E0A 


MOV 

E» BX.X <Y) 


129F 

CD 1491 


CALL 

R2A 

5 CONVERT COORDI 



NATES 




12 A2 

11 FFD8 


LX I 

D , ”40 

? NEGATIVE SCREE 



N INCREMENT 



12A5 

FD4604 


MOV 

Bi BX.YS(Y) • 

? B=Y SIZE 

12 AS 

3 A 8012 


L.DA 

WRMODE 

5 WHICH TIGHT LO 



OR TO USE? 



12AB 

A7 


ANA 

A 


12AC 

20 OB 


JRNZ 

» «PLOP 




5 WRITE 

: MAGIC 

(XOR FOR NOW) 


12AE 

3A 8011 

..XORLs 

LDA 

PIXVAL 


12 B1 

A1 


ANA 

C 


12B2 

AE 


XRA 

M 


12B3 

77 


MOV 

Mi A 


12B4 

19 


DAD 

D 


12B5 

10F7 


DJNZ 

„ XORL 


12B7 

D1 


POP 

D 


12B8 

C9 

~ ' ... 

RET 





“ PLUP 

WRITE 1.. 

..UUP 


1 2B9 

3A 8011 

..PLOPS 

LDA 

PIXVAL 


12BC 

AE 


XRA 

M 


12BD 

A1 


ANA 

c 


12BE 

AE 


XRA 

M 


12BF 

77 


MOV 

M, A 


12C0 

19 


DAD 

D 


1 1 

1 0F6 


DJNZ 

„.PLOP 


12C3 

D1 


PUP 

D 
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12C4 

C9 

RET 




5 CLIP BOTH COORDINATES ROUTINE 



? THIS ROUTINE 
TACK FRAME 

EXPECTS PARAMETERS TO BE ON THE S 



5 AS IN THE BOX 

COMMAND 

12C5 


CLIPS 


1 2C5 

2A 8000 

LHLD 

WINPTR 

12C8 

CD 12DF 

L-ALL 

CLIPPER 

12 CB 

D8 

RC 


12 CC 

FDE5 

PUSH 

Y 

12CE 

FD2B 

DCX 

Y 

12D0 

FD2B 

DCX 

Y 

12 D2 

2 A 8000 

LHLD 

WINPTR 

12D5 

01 0004 

LX I 

B, 4 

12D8 

09 

DAD 

B 

12D9 

CD 12DF 

L A L L 

CLIPPER 

12DC 

FDE1 

POP 

Y 

12DE 

C9 

RET 




? CLIP COORDINATE ROUTINE 
? HL = FARM AREA START IN WINDOW TABLE 



5 IY POINTS TO 

STACK FRAME SUCH THAT 



5 SIZE IS 6 BYTES DOWN, COORDINATE 10 BYTES DOWN 

12DF 


CLIPPERS 


12 DF 

5E 

MOV 

E,M 5 GET UPPER LIMIT 

12E0 


INX 

H 

12 E1 

56 

MOV 

D, M 

12 .E2 

23 

INX 

1-1 

12E3 

4E 

MOV 

C,M 5 GET LOWER LIMIT 

12E4 

23 

INX 

H 

12E5 

46 

MOV 

B, M 

12E6 

C5 

PUSH 

B 

12E7 

FD6E0A 

MOV 

L,CLP.C(Y) ? HL=COO 



RDINATE 


12 EA 

FD660B 

MOV 

H,CLP.C+l(Y) 

12ED 

FD4E06 

MOV 

C,CLP.S(Y) 5 BC=SIZ 



E 


12F0 

FD4607 

MOV 

B,CLP» S+1(Y) 

12F3 

CD 136E 

L-ALL. 

„.TSTB ? BARF IF <= 0 

12F6 

2873 

UR Z 

..NODR 

12F8 

OB 

DCX 

B 

12F9 

CD 137E 

L- A L l.„ 

.„DVBC 5 BC=BC DIVIDE 2 

12FC 

A7 

ANA 

A 

12FD 

ED42 

D8BC 

B S HL--LOWER 

1 2FF 

FD750A 

MOV 

CLP.C(Y)7 L 5 STUFF 



BACK STUFF 


1302 

FD740B 

MOV 

CLP.C+l(Y),H 

1305 

EB 

XCHG 

5 TO DE 

1306 

CD 1386 

CALL 

CPHLDE ? IS LOWERXJL? 

1309 

3860 

JRC 

..NODR ? DONT DRAW 

130B 

E3 

XTHL 


130C 

CD 1386 

CALL 

CPHLDE ? IS LOWER < LOW 



ER LIMIT? 


130F 

38 IF 

JRC 

. . LOK 
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1311 

E5 

IT 

PUSH 

H 

1312 

EB 


XCHG 


1313 

A7 


ANA 

A 

1314 

EDS2 

IT 

DSBC 

D 

1316 

EB 


XCHG 


1317 

FD6E06 

E 

MOV 

Li CLP.S( Y) 

131A 

FD6607 


MOV 

H,CLP.S+1(Y) 

131D 

19 


DAD 

D 

131E 

FD7506 

BACK 

MOV 

CLP.S(Y)jL 

1321 

FD7407 


MOV 

CLP.S+l(Y),H 

1324 

CD 1377 


CALL 

„.TSTH 

1327 

2841 


JRZ 

..NODI 

1329 , 

El 

AT 

POP 

H 

J. C*A 

FD750A 


MOV 

CLP„C < Y )7 L 



LIMIT 



132D 

FD740B 


MOV 

CLP.C+1(Y),H 


> 

? DEAL 

WITH OTHER END 

1330 

EB 

..LOK s 

XCHG 

? DE : 

1331 

FD6E0A 

RDINATE 

MOV 

Li CLP. C( Y) 

1334 

FD660B 


MOV 

HiCLP.C+1(Y) 

1337 

FD4E06 

E 

MOV 

G,CLP.S(Y) 

133 A 

FD4607 


MOV 

B,CLP.S+l(Y> 

133D 

CD 136E 


CALL 

..TSTB 

1340 

'P {•**! 9 


JRZ 

„.NODR 

1342 

OB 


DCX 

B 

1343 

09 

DOE 

DAD 

B 

1344 

EB 


XCHG 


1345 

CD 1386 


CALL 

CPHLDE 

1348 

El 


POP 

H 

1349 

28 ID 

E 

JRZ 

u „ IJOK 

134B 

30 IF 


•JRNC 

„.NOD 2 



ER LIMIT DONT 


134D 

CD 1386 


CALL 

CPHLDE 

1350 

3016 


JRNC 

..UOK ; 

1352 

A7 

IJD 6 E 

ANA 

A 

1353 

ED52 


DSBC 

D 

1355 

EB 


XCHG 


1356 

FD6E06 


MOV 

Li CLP.SCY) 

1359 

FD6607 


MOV 

Hi CLP.8+1(Y) 

135C 

19 


DAD 

D 

135D 

FD7506 


MOV 

CLP.S(Y),L 

1360 

FD7407 


MOV 

CLP.S+l(Y),H 


PAGE 30 

? SAVE LOWER LIM 
? HL=LOWER,DE=LL 

? HL=LOWER -LIM 

; HL=SIZ 

5 STORE 

? IF HO 0 ABORT 

? SET COORDINATE 
; LOWER 

LOWER LIMIT 

i HL=COO 

; bos i z 

? ADD TO LOWER E 

5 UPPER TO DE 
? CAN WE DRAW? 

? H=UL 

5 -JUMP IF ON EDO 

5 IF UPPER < LOW 

? IS UPPER > UL? 

? NO' PROS' 

? COMPUTE SIZE F 

? TO DE 

? HL=NEW SIZE 
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1363 

CD 

1377 

CALL 

. . TSTH 

7 IF HL<=0 ABORT 

1366 

2804 

JR 2 

»N0D2 


1368 

A7 


.„UOK 5 ANA 

A 

5 RETURN CARRY C 




LEAR 



1369 

C9 


RET 


? FOR GOOD GUYS 

136A 

El 


..NODis POP 

H 

5 BAD GUY - CL.EA 




N UP STACK 



136B 

El 


..NODR s POP 

LJ 

ri 


136C 

37 


.„NQD2s STC 


5 CY FOR L'lONT DR 




AW 



136D 

C9 


RET 






5 TEST FOR BC 

BEING <= 

0 

136E 

7 5“*i 


..TSTBs MOV 

A •» B 


136F 

A7 


ANA 

A 


1370 

FA 

1375 

JM 

..LES2 


1373 

B 1 


ORA 

c 


1374 

C9 


RET 



1375 

AF 


.„LES2 s XRA 

A 


1376 

C9 


RET 






? SIMILAR ROUTINE FOR 

--IL 

1377 

7C 


..TSTHs MOV 

A 7 H 


1378 

A7 


ANA 

A 


1379 

FA 

1375 

JM 

..LES2 


137C 

B5 


ORA 

L 


137D 

C9 


RET 






5 DIVIDE BC BY 

2 


137E 

A7 


.„DVBCs ANA 

A 


1.37F 

78 


MOV 

A 7 B 


1380 

IF 


RAR 



1381 

47 


MOV 

B, A 


1382 

79 


MOV 

A 7 C 


1383 

IF 


RAR 



1384 

4F 


MOV 

L 7 l“‘l 


1385 

G9 


RET 






« ##### 






$ *ft 






S * ROUTINE TO 

COMPARE 

HL TO DE 




S * RETURNS CY 

SET FOR 

HLCDE (OR DE>HL) 




? * CY CLEAR i 

2ERO SET 

IF HL=DE 




7 ft C Y C L. E A R } 

2ERO CLEAR IF HL>DE (OR DE-CHL) 




? *ft 

% 





? 



1386 

7C 


CPHLDEs MOV 

A, H 


1387 

AA 


XRA 

D 

5 ARE SIGNS DIFF 

1388 

F 2 

1391 

JP 

. . CK1 

; NO 

138B 

EB 


XCHG 


? YES - REVERSE 




ARGS 



138C 

CD 

1391 

L* A L.!.... 

. »CK 1 

? DO CHECK 

138F 

EB 


: XCHG 


5 BACK TO NORMAL 

1390 

C9 


RET 



1391 

7C 


,.CK1s MOV 

A, H 


1392 

BA 


CMP 

D 


1393 

CO 


RN2 
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^ ■ ; 

1394 

7D 

MOV 

A» L 

1395 

BB 

CMP 

E . 

1396 

C9 

RET 




$ # 

? * CLEAR THE 

SCREEN, THE WHOLE SCREEN, AND NOTH 



IMG BUT THE SC 
? # 

REEN 



VERB 

"CLEAR "t 

1397 

1205 

+ . WORD 

.LINK. 

1399 

05 

+ » BYTE 

..0026-.-1 

139A 

434C45415 

2 *+* „ ASC I I 

"CLEAR" 

139F 


+ „ „ 00265 ] 


139 F 


OLEAREs 


139F 

C5 

PUSH 

B 

13 AO 

21 4000 

LX I 

H,4000H 

13 A3 

yrar f 

MOV 

M, L 

13A4 

11 4001 

LX I 

D, 4001H 

13A7 

01 OFFF 

LX I 

B,OFFFH 

13 A A 

ED BO 

LDIR 




; RESET OX, CY 

TO ULHC OF SCREEN 

1 SAC 

21 FFBl 

LX I 

H, —79 

13 AF 

22 8002, 

SHLD 

CDXCEL 

13B2 

21 0033 

LXI 

H, 51 

13B5 

22 8004 

SHLD 

CDYCEL 

13B8 

01 

POP 

NEXT! 

B 

13B9 

FDE9 

+ PCI YII 

. 



? «•*•«•#* 




; # 




? * LINE DRAWER 



“ # x—coord 1 y 

— c o o r d I x — c o o r d 2 y— c o o r d 2 m o d e D R A 



W x~coord2 v ~~c 

5 # 

o o r d 2 



VERB 

"drawm: 

13BB 

1397 

+ .WORD 

.LINK. 

13BD 

04 

+ .BYTE 

..0027-.-1 

i otscr 
-L C*JDfZ 

44524157 

+ .ASCII 

"DRAW" 

13C2 


+ . . 00275 II 




FRAME E 


1302 

FDE5 

h~ PUSH 

Y 

1304 

FD21 0000 

+ LXI 

Y , 0 

1308 

FD39 

+ DADY 

SPl 

130 A 

FD5604 

MOV 

D , FR . P2(Y > 

13CD 

FD5E06 

MOV 

E,FR.P3(Y) 

13D0 

FD6608 

MOV 

H, FR. F'4 ( Y ) 

13D3 

FD6E0A 

MOV 

L,FR.P5(Y) 

13D6 

FD7E02 

MOV 

A, FR. F'l ( Y ) 

13D9 

A7 

ANA 

A 

13DA 

280B 

JR Z 

. , NODR 

13DC 

05 

PUSH 

B 

1 c*D 0 

CD 0CF2 

call 

INCLOK 

13E0 

CD 13F6 

L- A L L.. 

DVECT 
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13E3 

CD 0CF9 

CALI- 

DECLOK 

13E6 

Cl 

POP 

B 

13E7 


..NODR: UNFRAMEC 

13E7 

FDE1 

+ POP 

VI 

13E9 

El 

POP 

H 

13EA 

El 

POP 

H 

:l.3EB 

D1 

POP 

D 

13EC 

FI 

POP 

PSW 

13ED 

FI 

POP 

PSW 

13EE 

D5 

PUSH 

D 

13EF 

E5 

PUSH 

H 



NEXTC 


13F0 

FDE9 

+ PCIY3 




? STRANGE TABLE 

u n » 

13F2 

0055AAFF 

MSKTBLs .BYTE 

O,055H,OftAH,OFFH 


; ####* 

; * 

5 * THIS ROUTINE IMPLEMENTS LARRY LIVERMORE'S VE 
CTOR 

S * DRAWING ALGORITHM. 

•; * INPUTS L = XI COORDINATE 




; * H = Y l 

COORDINATE 




5 * E = X2 

COORDINATE 




; * D = Y2 

COORDINATE 




? * OUTPUTS 

Den 

A = 0, DE 

= X2iY2» BC, HL CLOBBE 



KtU 

5 * RAM USES 
” * INCRO 

* •;» 

BYTES HOLDS X,Y INCREM 



ENTS 

5 * MNMX 

ELTAS , 


BYTES HOLDS MIN, MAX D 



5 '* PIXVAL 

1 BYTE HOLDS LEFT JUSTIFIED PIXE 



L FOR XOR WRITE 
5 * WRMODE 

5 * 

1 BYTE HOL 

.DS PLOP-XOR FLAG 



S COMPUTE DELTA 

S AND ABS(DELTAS) 

13F6 

D5 

DVECTs PUSH 

D 


13F7 

45 

MOV 

B,L 5 

COMPUTE Y STUFF 

13F8 

4B 

MOV 

C, E 


13F9 

CD 1448 

CALL 

CBELTA 


13FC 

58 

MOV 

b. 7 B 


13FD 

69 

MOV 

L, C 


13FE 

44 

MOV 

Bi H 


13FF 

4A 

MOV 

C, D ? 

AND X STUFF 

1400 

CD 1448 

CALL 

CDELTA 


1403 

61 

MOV 

H, C 


1404 

50 

MOV 

D,B 


1405 

22 80OD 

SHLD 

INCRO 




? DECIDE WHICH 

IS BIGGER - 

•CALL BIGGER MX, SMALL 



ER MN 



1408 

OEOO 

MV I 

C v 0 


140A 

7ft 

MOV 

ft •} Et 


140B 

BB 

CMP 

E 


140C 

3803 

■JRC 

. . DV 1 



DV 1 








Z80 

CP/M DISK ASS 

EMBLER VERSION 2.21 

PAGE 

140E 

53 


MOV 

D, E 

140F 

5F 


MOV 

E, A 

1410 

oc 


I NR 

C 

1411 

7A 

. DV15 

MOV 

A 7 D 

1412 

CB3F 


SRL.R 

A 

1414 

47 


MOV 

B, A 

1415 

EB 


XCHG 


1416 

22 80OF 


SHLD 

MNM.X 

1419 

01 


POP 

D 

141ft 

.'70 


MOV 

A t L 

14 IB 

3C 


I NR 

A 

141C 

F5 

VECT25 

PUSH 

PSW 

1410 

FD7E02 


MOV 

AiFR.Pl(Y> 

1420 

CD OEEB 


CALL 

POINTR 5 DRAW THE POINT! 



; NOW 

INCREMENT 

COORDINATES 

.1.423 

2A 800F 

VECT2A 

s' LHLD 

MNMX 

1426 

78 


MOV 

A,B 

1427 

84 


ADD 

H 

1428 

BO 


CMP 

L 

1429 

38 OD 


JRC 

VECT4 5 JUMP IF NOT 



? M+MN 

IS >=MX, 

SET M=MOD { M+MN> MX) 

142B 

95 


SUB 

L. 

142C 

47 


MOV 

B, A 



? INCREMENT BOTH DIRECTIONS 

142D 

2A 800D 


LHLD 

INCRO 

1430 

7 A 


MOV 

A i D 5 CONFUSE Y 

1431 

84 


ADD 

H 

1432 

I2j“7 


MOV 

D, A 

1433 

7B 

VECT3: 

MOV 

A,E ? THEN X 

1434 

F*5 


ADD 

L 

1435 

5F 


MOV 

E,A 

1436 

18 OB 


■JMPR 

VECT5 



5 M + 

MN IS < MX 

J SET M = M + MM 

1438 

47 

VECT4: 

MOV 

B 7 A 



5 INCREMENT ONLY MAX DIMENSION 

1439 

2A 800D 


LHLD 

INCRO 

143C 

79 


MOV 

A 7 C 5 C = DIRECTION FLAG 

1430 

OF 


RRC 


143E 

30 F 3 


JRNC 

VECT3 ? 0***** "■** X 7 SO GO DO IT 

1440 

7A 


MOV 

A 7 D ? Y CASE 

1441 



ADD 

H 

1442 

57 


MOV 

0, A 



5 END 

OF LOOP 


1443 

FI 

VECTSs 

POP 

PSW 

1444 

3D 


DCR 

A 

1445 

2005 


■JRNZ 

VECT2 

1447 

C9 


RET 




5 SUBROUTINE TCP 

COMPUTE DELTA AND INCREMENT 1 



TWO COORDINATES 


1448 

E5 

CDELTA 

s PUSH 

H 

1449 

D5 


PUSH 

D' 

144 A 

69 


MOV 

l 7 C 

144B 

CD 146A 


CALL 

SGNEXT 

144E 

EB 


XCHG 


144F 

68 


MOV 

L,B 
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1450 

CD 146A 

CALL 

SGNEXT 


1453 

AF 

XRA 

A 


1454 

ED52 

DSBC 

D 


1456 

B4 

ORA 

H 


1457 

2807 

■JRZ 

„ . CD 1 


1459 

4F 

MOV 

U -t A 


145 A 

7D 

MOV 

A 7 L 


145B 

2F 

CMA 



145C 

3C 

INR 

A 


145D 

47 

MOV 

B, A 


145E 

1807 

JMPR 

„ »CDS 


1460 

B5 

..CDis ORA 

L.. 


1461 

2802 

■JRZ 

» »CD2 


1463 

3E01 

MV I 

A 7 1 


1465 

45 

„„CD2! MOV 

B 7 L 


1466 

4F 

MOV 

C, A 


1467 

D 1 

„.CD35 POP 

D 


1468 

El 

POP 

H 


1469 

C9 

RET 





? SIGN EXTENSION SUBROUTINE 


146 A 

2600 

SOMEXT s MVI 

H 7 0 


146C 

7D 

MOV 

A 7 L 


146D 

A7 

ANA 

A 


146E 

F 0 

RP 



146F 

j:.. -.J 

DCR 

H 


1470 

C9 

RET 





? ABSOLUTE VAL 

.UE ROUTINE 




? THIS ROUTINE 

COMPUTES THE ABSOLUTE VALUE OF TH 



E ARGUMENT 

5 PASSED IN A„ 

THE RESULT IS RETURNED 

IN A. 

1471 

A7 

ABS s ANA 

A 


1472 

FO 

RP 



1473 

2 F 

CMA 



1474 

3C . 

INR 

A 


1475 

C9 

RET 





; 

; * 





5 * RELATIVE TO ABSOLUTE CONVERSION ROUTINE 



WITH CLIPPING AGAINST BOUNDARYS OF 

CURRENT W 



INDOW 





" » 





? * D=Y COORDINATE E=X COORDINATE 

5 # HL=ABSOLUTE ADDRESS (NOT MAGIC) 

? * A—SHIFT AMOUNT 




? * MINUS SET 

IF COORDINATE OUTSIDE OF 

WINDOW 



; * 





? -jf-H-a-#* 



1476 


R2ACL.P s 



1476 

2A 8000 

LHLD 

WINPTR 


1479 

7B 

MOV 

A 7 E 5 CHECh 

X UPPER 

147 A 

BE 

CMP 

M 


.147B 


I NX 

H 


147C 

23 

I NX 

H 


147D 

FA 1484 

JM 

„ . OKX 


, 1480 

2802 

JRZ 

. »OKX 
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1482 

BE 

CMP 

M 

1483 

F8 

RM 


1484 


. . OKX ■" INX 

H 

1485 

23 

INX 

H 

1486 

7A 

MOV 

A,D 

1487 

BE 

CMP 

M 

1488 

FA 1491 

JM 

R2A 

148B 

2804 

JRZ 

R2A 

148D 

23 

INX 

H 

148E 

O **JJj 

INX 

H 

148F 

BE 

CMP 

M 

1490 

F8 

RM 




; 

; 

? * NONCLIPPING 
? * 

ENTRY 

1491 

C5 

R2As PUSH 

B 

1492 

7A 

MOV 

A»D 

1493 

2F 

CMA 


1494 

U634 

ADI 

52 

1496 

6F 

MOV 

L, A 

1497 

2600 

MVI 

Hi 0 

1499 

29 

DAD 

H 

149 A 

29 

DAD 

H 

149B 

29 

DAD 

H 

149C 

44 

MOV 

B,H 

149D 

4D 

MOV 

C-i L 

149E 

Q 

DAD 

H 

149F 

29 

DAD 

H 

14 AO 

09 

DAD 

B 

14A1 

7B 

MOV 

A,E 

14A2 

C64F 

ADI 

79 

14A4 

OF 

RRC 


14A5 

OF 

RRC 


14A6 

E63F 

ANI 

3FH 

14A8 

4F 

MOV 

Ci A 

14A9 

0600 

MVI 

B? 0 

14 AB 

09 

DAD 

B 

14AC 

CBF4 

SET 

6, H 

14AE 

7B 

MOV 

A i E 

14AF 

3D 

OCR 

A 

14B0 

E603 

ANI 

’Z* : 

14B2 

Cl 

POP 

B 

14B3 

C9 

RET 


14B4 


CMPM s 


14B4 

AE 

XRA 

M 

14B5 

FA 14BB 

UM 

. REVR 

14B8 

AE 

XRA 

M 

14B9 

BE 

CMP 

M 

14BA 

C9 

RET 


14BB 

AE 

..REVRs XRA 

M 

14BC 

BE 

CMP 

M 

14BD 

3F 

CMC 


14BE 

C9 

RET 



01 NT 


5 DO SIGNS DIFFER? 

5 JUMP IF SO 
5 ELSE FIX 
5 AND COMPARE 

5 SAME FIX 

5 REVERSE SENSE OF CY 
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? LOAD ADDR OF SMALL FONT 


14BF 

13BB 

+ 

CONSTANT!SMALL,SMLFNT3C 
.WORD .LINK. 

14.C1 

05 

+ 

.BYTE 

..0028-.-1 

14C2 

534D414C4C 

■+* 

.ASCII 

"SMALL" 

14C7 

CD OCEB 

+ s 3 

CALL 

CONST 

14CA 

14CC 

-h 

. WORD 

SMLFNT3 

14CC 

20 

SMLFNT: 

.BYTE 

20H 

14CD 

03050406 


. BYTE 

3,5, 4, 6 

14D1 

1 BSC 


.WORD 

FNT35 

14D3 

01 


.BYTE 

1 

14D4 

14BF 

+ 

CONSTANT!LARGE,LRGFNT 11 
.WORD .LINK. 

14D6 

05 

-1” 

. BYTE 

.„0029-.“1 

14D7 

4C41524745 

4- 

.ASCII 

"LARGE" 

14DC 

CD OCEB 

+ S 1 

uAll 

CONST 

14DF 

14E1 

+ 

„ WORD 

LRGFNT3 

:L4E1 

14E1 

20 

LRGFNT 5 

. BYTE 

20H 

14E2 

05070608 


.BYTE 

5, 7, 6,8 

.14E6 

196E 


„ WORD 

FNT57 

14E8 

01 


. BYTE 

1 


» #***# 

5 * . 

§ VERB TO TYPE CHARACTER ON -BUILT IN" SCREEN 
WINDOW 

5 * character CDOUT . 

5 * 




VERB 

' “CDOUT"C 


14E9 

14D4 

+ .WORD 

« L. INK „ 


14EB 

05 

+ .BYTE 

««0030-. 

1. 

14EC 

43444F5554 

+ .ASCII 

"CDOUT" 


14F1 


+,.0030:3 ' 



14F1 

D1 

POP 

D ? 

DE=CHAR 

14F2 

FDE5 

PUSH 

Y 5 

WE WILL BE NEEDING THI 

14F4 

2A 8000 

LHLD 

WINPTR “ 

REMEMBER PREVIOUS WIND 



OW POINTER VALUE 


14F7 

E5 

PUSH 

H 


14F8 

2A 8002 

LHLD 

CDXCEL 


14FB 

E5 

PUSH 

H 


14FC 

2A 8004 

LHLD 

CDYCEL 


14FF 

E5 

PUSH 

H ' 


1500 

2A 8006 

LHLD 

CDGCEL 


1503 

E5 

PUSH 

H 


1504 

D5 

PUSH 

D . 

3 PUT CHAR ON 

1505 

2A 8008 

LHLD 

CDFCEL 

3 FONT 

1508 

E5 

PUSH 

H 


1509 

CD 0CF2 

CALL 

INCLOK 


150C 

2A 800A 

LHLD 

CDWCEL 


150F 

22 8000 

SHLD 

WINPTR 


1512 

FD21 1518 

LX I 

Y,„.CUMB 


1516 

181A 

•JMPR 

CHARO 


1518 


..CUMBs 
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1518 

El 

POP 

H 

1519 

22 8004- 

SHLD 

CDYCEL 

151C 

El 

POP 

H 

151D 

22 8002 

SHLD 

CDXCEL 

1520 

El 

POP 

H 

1521 

22 8000 

SHLD 

WINPTR 

1524 

FDE1 

POP 

Y 

1526 

CD 0CF9 

CALL 

NEXTC 

DECLOK 

1529 

FDE9 + 

PCI YD 



oooc 

OOO A 
0008 
0006 
0004 

0000 

0001 

0002 

0003 

0004 

0005 

0007 

0000 

152B 

152D 

152E 

1532 

1532 

1532 

1535 

1537 

1538 
153 A 
153E 
1540 

1543 
1545 



14E9 

04 

43484152 


CD 0GF2 

DDES 

C5 

FDE5 

FD21 0000 

FD39 

FD7E06 

FEOA 

2837 


iC 


5 

? & 

5 * CHARACTER DISPLAY VERB 

5 a* x c o o r d y - c o o r d c o 1 o r c h a r a c ter f o n t a d d r e s s 
CHAR x-coord y— coord » 






FD„XCS=1 
FD.YCS—2 
FD.XF=3 
FD.YF—4 
FD.AD=5 
FD.FLG=7 

? BITS IN STATUS BYTE OF FONT DESCRIPTOR 


FDF.XL=0 


+ 

+..0031 
CHARDs 


+ 

+ 


D CHARS 


VERB 
. WORD 
.BYTE 
.ASCI I 


CALL 
XT IX 
PUSH 
FRAME Z 
PUSH 
LX I 
DADY 
MOV 

CPI 
JR 2 


“ TRANSLATE LOWER CASE TO UPPER 

"CHAR "Z 

.LINK. 

..0031-.-1 
"CHAR" 


IIMCLOK 

B 

Y 

Y i 0 
SP 1 

A,CF.C(Y) 

LF 

..DONE 


CHECK FOR WIER 

LIKE LINEFEED 
IGNORE THAT GU 


1547 

1549 

154B 


FEOD 

200B 

CD 1675 


CPI ML 

JRNZ ..NONL 

NEW LINE CASE 

CALL RESCX 


RESET CX 
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154E 

CD 168B 

S 0FF8C 

CALL 

REEN 

CYSCROLL 

? 

SCROLL IF CY I 

1551 

CD 174C 


CALL 

BUMPCY 

? 

ADVANCE CY 

1554 
1556 . 

1828 

. . NONL s 

JMPR 

. DONE 



1556 

FE08 

IJT? 

CPI 

RUBOUT 

7 

HOW ABOUT RUBO 

1558 

2010 


JRNZ 

. . NORB 



155A 

CD 1633 


CALL 

LEFTX 

N 

7 

MOVE CX LEFT 

155D 

CD 170C 


CALL 

XCHECK 



1560 

301C 


•JRNC 

. DONE 

M 

7 

JUMP IF OK 

1562 

CD 1648 


CALL 

UF'Y 

7 

ELSE BACK UP Y 

1565 

CD 165B 


CALL 

FINDLAST 5 

FIND LAST CHAR POS ON 



PREV L 

INE 




1568 

18.14 


JMPR 

..DONE 





5 NORMAL 




156 A 
156 A 

CD 170C 

..NORB s 

CALL 

XCHECK 

7 

IS X OFFSCREEN 


156D 

3006 


JRNC 

. . XON 



156F 

CD 1675 


CALL 

RESCX 

7 

RESET CX 

1572 

j IUT '"Jr LT 

CD 174C 

..X ON s 

CALL 

BUMPCY 

M 

7 

ADVANCE CY 

1575 

CD 168B 

EEDS IT 

CALL 

CYSCROLL 

n 

7 

SCROLL IF CY N 

1578 

CD 158 A 


CALL 

DCHAR 

7 

BUG CHARACTER 



DISPLAYER 




157B 

CD 1739 


CALL 

BUMPCX 

7 

ADVANCE CX 

157E 

157E 

CD 0CF9. 

.,DONE s 

CALL 

DECLOK 






UNFRAMEC 



1581 

FDE1 

+ 

POP 

Y3 



1583 

Cl 


POP 

B 



1584 

DDE 1 

CK 

POP 

X 

u 

7 

FIX RETURN STA 

1586 

El 

POP 

H 

7 

EAT CHARACTER 

1587 

El 


POP 

H 

7 

AND MODE 




NEXT 


7 

GOOD-BYE II 

1588 

FDE9 

+ 

PCI YD 





? SUBROUTINE TO DISPLAY CHARACTER ON THE SCREEN 


1 


5SA 


DCHARs 

? FIRST DRAW BOX TO ERASE 


158 A 

FDE5 

PUSH 

Y 

158C 

FD5E0C 

MOV 

E 7 CF. X (V ) 

158 F 

FD560D 

MOV 

D 7 CF.X + l(Y) 

1592 

FD6E0A 

MOV 

L» CF .'Y (Y ) 

1595 

FD660B 

MOV 

H,GF.Y+l(Y) 

1598 

D5 

PUSH 

D 

1599 

E5 

PUSH 

H 

159 A 

DD5E03 

MOV 

E,FD.XFCX) 

159D 

1600 

MV I 

D, 0 

159F 

DD6E04 

MOV 

L,FD.YFCX) 

15A2 

62 

MOV 

Hi D 

15 A3 

D5 

PUSH 

D 
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15A4 
15A5 
15A7 
15A8 
15 AC 
15AF 
15AF 



15B1 

FD5608 

MOV 

D,CF.M(Y) 

15B4 

FD7EG6 

MOV 

AiCF.C(Y) .5 A=CHAR, D=MODE 

15B7 

15BB 

15BD 

DDCB0746 
280B 

FE61 

b0"He“want 
C MIL, 

LOWER TO UPPER.TRANSL'ATiOH^L?'-.^. 

_FDF.XL,FD.FLG < X) _> 

UKZ . .TNIJTH- ... _ ... -- 

5.„ .Y.E-8--' ARE WE IN RANGE FpE -'li^^ 

V'""" CPI •"ajL.-'-""'"''" i lower case a 

15BF 

3807 / 

JRC 

NOTR ' ■ 

15C1 

FE7B ( 

CPI'" 

z •" +1 

15C3 

3003 

■JRNC 

..NOTR j 

1505 

14 

\ I NR 

D ? BUMP COLOR 

15C6 

D620 

N -\„. SUI 

20H ? FUDGE TO CORRECT 

15C8 
i <=;r<a 

FE20 

3004 

.'.IxIGXRs CPI 

20H $ CONTROL CHARACTER? 

KiriTr* « kin per 

15CC 

C640 

‘■JrUM*.... 

ADI 

i L- j.. 

40H 

15CE 

14 

INR 

D 

15CF 

14 

INR 

D 

15D0 

DD9600 

..N0TC.5 SUB 

FD.BASE(X) 

15D3 

5p 

MOV 

E, A 

15D4 

7 A 

MOV 

AvD 

1.5D5 

E603 

AMI 


15D7 

2001 

•JRNZ 

. . COK 

15D9 

3C 

INR 

A 

15D A 

07 

..COKs RLC 


15DB 

07 

RLC 


15 DC 

D319 

OUT 

XPAND 

15DE 

1600 

MVI 

D i 0 

15E0 

DD7E01 

MOV 

A»FD.XCS t X > ; CONVERT X BITS 



INTO BYTES 


15E3 

C607 

ADI 

7 

15E5 

OF 

RRC 


.1.5E6 

OF 

RRC 


15E7 

OF 

RRC 


15E8 

E61F 

ANI 

1FH 

15EA 

47 

MOV 

B,A 

15EB 

DD4E02 

MOV 

CvFD.YCS(X) 

1 SEE 

DD6E05 

MOV 

LiFD.AD(X) 

15F1 

DD6606 

MOV 

H,FD„AD+1(X) 

15F4 

C5 

PUSH 

B 

15F5 

05 

.„MPY15 PUSH 

B 

15F6 

19 

..MPY2S DAD 

D 

15F7 

10FD 

D-JNZ 

..MPY2 

15F9 

Cl 

POP 

B 

15FA 

OD 

DCR 

C 

15FB 

20F8 

. JRNZ 

..MPY1 

15FD 

E5 

PUSH 

H 
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15FE 

DD7E01 

MOV 

A» FD .XCS(X) 

3 FUDGE COORDINA 



TE TO ULHC 



1601 

CD 1771 

CALL 

COMLV 


1604 

FD860C 

ADD 

CF.X CY) 


1607 

5F 

MOV 

Ei A 


1608 

DD7E02 

MOV 

A,FD.YCS(X) 


160B 

CD 1778 

CALL 

COMUV 


160E 

FD860A 

ADD 

CF.Y(Y) 


1611 

57 

MOV 

D? A 


1612 

CD 1491 

CALL 

R2A 


1615 

F628 

OR I 

XORWMR+XPWMR 


1617 

D30C 

OUT 

MAGIC 


1619 

CBB4 

RES 

6YH 

3 MAKE ADDR MAGI 

161B 

D1 

L. 

POP 

D 


161C 

Cl 

POP 

B 


161D 

C5 

.„W X15 PUSH 

B 


161E 

E5 

PUSH 

H 


161F 

1A 

..WX2: LDAX 

D 


1620 

13 

INX 

D 


1621 

77 

MOV 

Mi A 


1622 

23 

INX 

H 


1623 

77 

MOV 

Mi A 


1624 

2 3 

INX 

H 


1625 

10F8 

DJNZ 

. »WX2 


1627 

70 

MOV 

M, B 


1623 

23 

INX 

H 


1629 

70 

MOV 

M,B 


162 A 

El 

POP 

H 


162B 

OF28 

MV I 

C,BYTEPL 


162D 

09 

DAD 

B 


162E 

Cl 

POP 

B 


162F 

0D 

DCR 

C 


1630 

20EB 

■JRNZ 

. . WX1 


1632 

C9 

RET 





3 MOVE X TO THE 

LEFT 


1633 


LEFTXs 



1633 

FD6E0C 

MOV 

L ■> C F. X (Y) 


1636 

FD660D 

MOV 

H> CF.X+l(Y) 


1639 

DD5E03 

MOV 

E,FD.XF(X) 


1630 

1600 

MV I 

D, 0 


163 E 

A7 

ANA 

A 


163F 

ED52 

DSBC 

D 


1641 

FD750C 

MOV 

CF.X(Y),L 


1644 

FD740D 

MOV 

CF.X+l(Y) i H 


1647 

C9 

RET 





3 MOVE CY UP 



1648 


UPY " 



1648 

FD6E0A 

MOV 

L i CF.Y(Y) 


164B 

FD660B 

MOV 

H,CF.Y+l(Y) 


164E 

DD5E04 

MOV 

E,FD„YF(X> 


1651 

1600 

MV I 

D, 0 


1653 

19 

DAD 

D 


1654 

FD750A 

MOV 

CF.Y(Y),L 


1657 

FD740B 

MOV 

CF.Y+1(Y),H 
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165A 

C9 

RET 




? SET CX TO LA 

ST POSITION ON LINE 

165B 


FINDLAST 5 


165B 

CD 1675 

CALL 

RESCX 

165E 

FD6E0C 

...MORES MOV 

LyCF. X (Y) 

1661 

FD660D 

MOV 

H»CF.X+ 1 (Y) 

1664 

F5 

PUSH 

H 

1665 

CD 1739 

CALL 

BUMPCX 

1668 

CD 17OC 

CALL 

XCHECK 

166B 

El 

POP 

H 

166C 

30F0 

JRNC 

..MORE 

166E 

FD750C 

MOV 

CF.X(Y),L 

1671 

FD740D 

MOV 

CF.X+1(Y),H 

1674 

C9 

RET 




? RESET CX TO 

LHS OF WINDOW 

1675 

DD7E01 

RESCXs MOV 

AtFD.XCS(X) 

1678 

3D 

DCR 

A 

1679 

CD 1778 

CALL 

COMUV 

167C 

6 F 

MOV 

1.7 A 

167D 

2600 

MV I 

H ■> 0 

167F 

CD 1761 

CALL 

DEPARM 

1682 

02 

.BYTE 

WXL 

1683 

19 

DAD 

D 

1684 

FD750C 

MOV 

CF.X(Y),L 

1687 

FD740D 

MOV 

CF.X+1(Y),H 

168 A 

C9 

RET 




? SCROLL IF CY 

OFFSCREEN AT BOTTOM 

168B 


CYSCROLLs 




? CHECK FOR Y 

ABOVE UPPER LIMIT 

168B 

DD7E02 

MOV 

A,FD.YCS(X) 

168E 

CD 1778 

CALL 

COMUV 

1691 

5F 

MOV 

E, A 

1692 

1600 

MV I 

D i 0 

1694 

FD6E0A 

MOV 

L 7 CF.Y(Y) 

1697 

FD660B 

MOV 

HtCF.Y+1(Y) 

169 A 

19 

DAD 

D 

169B 

CD 1761 

CALL 

DEPARM 

169E 

04 

. BYTE 

WYU 

169F 

CD 1386 

CALL 

CPHLDE 



? IF OFFSCREEN 

AT TOP RESET TO TOP 

16A2 

D4 16DC 

CNC 

RESCY 

16A5 

CD 16F4 

CALL 

YCHECK ? IS Y OFF 



OM 


16A8 

DO 

RNC 

; NO 



? SET CY TO BOTTOM MOST LINE THAT 



FROM TOP 


16A9 

CD 16DC 

UALL 

RESCY 

16AC 

FD6E0A 

..LOPRs MOV 

L,CF.Y(Y) 

16AF 

FD660B 

MOV 

H,CF.Y+1(Y) 

16B2 

E5 

PUSH 

H 

16B3 

CD 174C 

L* A L. L. 

BUMPCY 

16B6: 

CD 16F4 

CALL 

YCHECK 

16B9 

El 

pop 

H 

16BA 

30F0 

JRNC 

.„LOPR 

16BC 

FD750A 

MOV 

CF. Y (Y) ,L. 
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OF SCREEN 


OFFSCREEN AT BOTT 


IS OK MEASURED 
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16BF 

FD740B 

16C2 

DD4E04 

16C5 

0600 

16C7 

FDE5 

16C9 

21 0000 

16CC 

E5 

16 CD 

E5 

16CE 

24 

16CF 

E5 

16D0 

E5 

16D1 

C5 

16D2 

FD21 16D9 

16D6 

C3 1069 

1609 

16D9 

FDE1 

16DB 

C9 

16 DC 

16DC 

CD 1761 

16DF 

04 

16E0 

EB 

16E1 

DD7E02 

16E4 

CD 1778 

16E7 

5F 

16E8 

1600 

16EA 

A7 

16EB 

ED52 

16ED 

FD750A 

16F0 

FD740B 

16F3 

C9 


16F4 


16F4 

DD7E02 

16F7 

CD 1771 

16FA 

5F 

16FB 

16FF 

16FD 

FD6E0A 

1700 

FD660B 

1703 

19 

1704 

CD 1761 

1707 

06 

1708 

CD 1386 

170B 

09 


170C 


170C 

FD6E0C 

17 OF 

FD660D 

1712 

DD7E01 

1715 

CD 1778 

1718 

5F 



..CUMAs 

POP y 

RET 

5 RESET CY TO SCREEN TOP 
RESCYs 

CALL DEPARM 


.BYTE 

XCHG 

WYU 

MOV 

A,FD.YCS(X) 

CALL 

COMUV 

MOV 

E, A 

MV I 

D j 0 

ANA 

A 

DSBC 

D 

MOV 

CF. Y (Y ) •, L 

MOV 

RET 

CF.Y+l(Y> i H 


5 CHECK FOR CY ONSCREEN AT BOTTOM 


ET IF SC 

:ROL.L NEEDED 

MOV 

A,FD.YCS(X> 

CALL 

COML.V 

MOV 

E, A 

MVI 

D,OFFH 

MOV 

LYCF.YTY) 

MOV 

H,CF„Y+l(Y) 

DAD 

D 

CALL 

DEPARM 

„ BYTE 

WYL 

CALL 

CPHLDE 


RET 

5 ROUTINE TO CHECK CX FOR BEING ONSCREEN 
5 RETURNS CY SET IF OFFSCREEN 
XCHECKS 

MOV L,CF.X(Y) 

MOV H? CF.X+l<Y> 

MOV ArF-D. XCS ( X ) 

CALL COMUV 

MOV Er A. 
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1719 

1600 

MV I 

D 7 0 


171B 

E5 

PUSH 

H 


171C 

19 

DAD 

D 


171D 

CD 1761 

CALL 

DEPARM 


1720 

00 

.BYTE 

WXR 


1721 

EB 

XCHG 

? HL=LMT, 

DE=EXTENT 

1722 

CD 1386 

CALL 

CPHLDE 


1725 

El 

POP 

H 


1726 

D8 

RC 



1727 

DD7E01 

MOV 

A,FD.XCS(X) 


172A 

CD 1771 

CALL 

CO.MLV 


.1720 

5F 

MOV 

E, A 


172E 

16FF 

MVI 

D,OFFH 


1730 

19 

DAD 

D 


1731 

CD 1761 

CALL 

DEPARM 


1734 

02 

„ BYTE 

WXL 


1735 

CD 1386 

CALL 

CPHLDE 


1738 

C9 

RET 





? ROUTINE TO 

BUMP CX 


1739 

DD5E03 

BUMPCX: MOV 

E,FD.XF(X) 


173C 

1600 

MVI 

D, 0 


173E 

FD6E0C 

MOV 

L.CF.X(Y) 


1741 

FD660D 

MOV 

H,CF„X+l(Y) 


1744 

19 

DAD 

D 


1745 

FD750C 

MOV 

CF.X(Y),L 


1748 

FD740D 

MOV 

CF.X+1C Y )7 H 


174B 

C9 

RET 





? SUBTRACT YF 

FROM CY 


174C 

DD5E04 

BUMPCY5 MOV 

E,FD.YF(X) 


174F 

1600 

MVI 

D 7 U 


1751 

FD6E0A 

MOV 

L,CF.Y(Y) 


1754 

FD660B 

MOV 

H 7 CF.Y+1(Y > 


1757 

A7 

ANA 

A 


1758 

ED52 

DSBC 

D 


175ft 

FD750A 

MOV 

CF. Y (Y), L. 


1750 

FD740B 

MOV 

CF.Y+l(Y) ,H 


1760 

C9 

RET 





? ROUTINE TO 

GET WINDOW FARM INTO 

DE 

1761 


DEPARMs 



1761 

F3 

XTHL 



1762 

5E 

MOV 

E,M 


1763 

*“>•-* 

INX 

H 


1764 

E3 

XTHL 



1765 

1600 

MVI 

D, 0 


1767 

p csj 

PUSH 

H 


1768 

2A 8000 

LHLD 

WINPTR 


176B 

19 

DAD 

D 


1760 

5E 

MOV 

E, M 


176D 

Zv* ■ 

INX 

H 


176E 

58 

MOV 

D 7 M 


176F 

El 

POP 

H 


' 1770 

09 

RET 



1771 


COMLVs 



1771 

3D 

DCR 

A 


1772 

OF 

RRC 
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1773 

E67F 

ANI 

7FH 


1775 

2F 

CMA 



1776 

3C 

I NR 

A 


1777 

C9 

RET 



1778 


COMUVs 



1778 

OF 

RRC 



1779 

E67.F 

ANI 

7FH 


177B 

C9 

RET 





; -h-h-*#* 





; * 





5 * EASY ENTRY 

KEYPAD SCANNER 




“ * EZKP kevco 

de . 




; * 





; ##«•*•«• 





VERB 

"EZKP" t 


177 C 

152B 

+ .. WORD 

.LINK. 


177E 

04 

+ .BYTE 

..0032-.-1 


177F 

455A4B5G 

+ .ASCII 

"EZKP" 


1783 


+..0032 s] 



1783 

pjgj 

PUSH 

B 


1784 

CD 178E 

CALL 

KEYPSN 


1787 

6F 

MOV 

L t A 


1788 

2600 

MV I 

H,0 


178 A 

Cl 

POP 

B 


178B 

E5 

PUSH 

H 

, 



NEXT! 



178C 

FDE9 

+ F'C IY :i 





5 EASY ENTRY KEYPAD SCAN SUBROUTINE 

tt 

178E 

01 0414 

KEYPSNs LX I 

B,0414H 5 

BC=COL #/PORT 



# 



1791 

11 8027 

LX I 

D, KEYF'TK 


1794 

ED78 

. .SCNis INF' 

A ? 

GET A COL. 

1796 

E6-3F 

ANI 

3FH ; 

ISOLATE RELEVA 



NT 



1798 

2006 

JRNZ 

. . oL-Nx t 

JUMP IF SOMETH 



IMG THERE 



179A 

OC 

I NR 

c ; 

BUMP PORT 

179B 

10F7 

DJNZ 

„.SCNl 


179D 

AF 

XRA 

A 


179E 

12 

STAX 

D 5 

SAY NOTHIN FOU 



ND 



179F 

C9 

RET 





? GOT SOMETHANG 

- LOOK FOR THE HOT BIT 

17 AO 

05 

..SCN2S DCR 

B 5 

FUDGE COL TO 0 

17A1 

OEOO 

MV I 

C, 0 5 

C=BIT COUNTER 

17 A3 

OF 

. . -i'>l...N4" RRL. 

M 

■J 

COUNT UNTIL BI 



T SHOWS UP 



17A4 

8803 

,JRC 

..SCN3 


17A6 

OC 

I NR 

C 


17A7 

18F A 

■JMPR 

..SCN4 


17A9 

79 

„.SCN3s MOV 

At C 5 

80MBINE WITH C 



OL # 



17AA 

07 

RLC 
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17AB 

07 


RLC 



17 AC 

BO 


ORA 

B 


17 AD 

3C 

1-24 

I NR 

A 

5 GIVING KEYCODE 

17AE 

47 


MOV 

B, A 


17AF 

1A 

LAST? 

LDAX 

D 

5 DIFERENT FROM 

17B0 

AS 


XRA 

B 


17B1 

CS 


RZ 


? NO 

17B2 

78 


MOV 

A,B 


17B3 

12 


STAX 

D 


17B4 

C9 


RET ' 




; ***** 

5 * 

? * CHROMERICS KEYBOARD SCAN ROUTINE 
; * 

; ***** 

5 EQUATESs 


0080 


SLBITM=80H 

? SHIFT LOCK BIT IN KEYFLG AMD L 



EDS 



0040 


MDBITM=40H 

5 MODE BIT SAME STORY 

0003 


CK1RAM=3 

5 LOCATION OF 

CONTROL KEYS 

0003 


CRIBIT—3 



0007 


CK2RAM--7 



0004 


CK2BIT=4 



0000 


SK1RAM=0 

? LOCATION OF 

SHIFT KEYS 

0000 


SK 1 BIT =0 



0007 


SK2RAM=7 



0002 


SK2BIT=2 



0000 


T0KRAM=0 

5 LOCATION OF 

TOKEN KEY 

0002 


T0KBIT=2 



0001 


SHYL0K=1 

5 KEYCODE NUMBER FOR SHIFT LOCK 



KEY 



0004 


ESCKEY=4 

5 KEYCODE NUMBER OF ESCAPE KEY 

17B.5 


KEYSCNs 



17B5 

06FE 

MV I 

B 7 OFEH 

5 B=COL SET BIT 

17B7 

11 0000 

L.X I 

D i 0 

; DE=COLUMN # 

17BA 

78 

..SCANS MOV 

A,B 


17BB 

CD 186B 

CALL 

0UT98 


17BE 

CD 1873 

CALL 

IN 98 


17C1 

2F 

CMA 



17C2 

21 80 ID 

LX I 

HiKEYTRK 


17C5 

19 

DAD 

D 


17C6 

77 

MOV 

Mi A 


17C7 

21 187B 

LX I 

H,KEYMES 


17CA 

19 

DAD 

D 


17CB 

A 6 

ANA 

M 


17CC 

200 A 

•JRNZ 

..LIVE 


17CE 

1C 

I NR 

E 


17CF 

CBOO 

RLCR 

B 

5 SHOVE OVER THE, 



MASK 



17D1 

38E7 

JRC 

..SCAN 

5 LOOP TILL FALL 



S OFF END 



17D3 

AF 

XRA 

A' 

5 FAILURE-NAIL 0 


LDKEY MEM 
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17D4 

32 8026 

STA OLDKEY 


17D7 

f;9 

RET , 

? HOME TO MAMMA 


? A KEY IS DOWN - CONVERT TO INTERMEDIATE KEYCOD 
5 FIRST CONVERT TO BIT NUMBER 


17D8 

OF 

..LIVES RRC 


17D9 

3803 

JRC 

..BITF 

17DB 

14 

I NR 

D 

17DC 

18FA 

.JMPR 

..LIVE 

17DE 

7B 

..BITFs MOV 

ArE ; COLUMN # 

17DF 

A7 

ANA 

A 

17E0 

07 

RLC 

5 * 8 

17E1 

07 

RLC 


17E2 

07 

RLC 


17E3 

oo 

O 

ADD 

D ? + BIT # 

17E4 

4F 

MOV C,A 5 KEYCODE TO C 

? IS THE KEYCODE THE SAME AS THAT FOUND ON F'REVI 
Q'US SCAN?? 

17E5 

21 8026 

LX I 

H,OLDKEY 

17E8 

BE 

: CMP 

M 

17E9 

C 8 

RZ 

r QUIT IF SO 

17EA 

77 

MOV 

ANGS 

M j A 5 ELSE UPDATE TH 

17EB 

21 8025 

LX I H,KEYFLG 5 POINT AT SHIFT 

LOCK/MODE FLAGS 

? CHECK FOR SHIFT LOCK KEYPRESS 

17EE 

FE01 

CPI 

5 JMPR 

SHYL.OK 
. „ IMOSL 

17F0 

2005 

JRNZ 

..NOSL 

17F2 

7E 

MOV 

HIFT LOCK BIT 

A 7 M ? YEP -*** TOGGLE 8 

17F3 

EE80 

XRI 

SLBITM 

17F5 

1816 

JMPR ..ULED 5 JUMP TO UPDATE 

5 CHECK FOR CONTROL KEY 

1.7F7 

3A 8020 

..IMOSLs LDA 

KEYTRK+CK1RAM 

17FA 

CB5F 

BIT 

OKIBIT i A 

17FC 

2007 

JRNZ 

..CKDN 

17FE 

o‘A 8024 

LDA 

KEYTRK+CK2RAM 

1801 

CB67 

BIT 

CK2BITift 

1803 

280F 

JRZ ..NOCK 

? WE GOT A CONTROL KEY - DO WE HAVE ESCAPE AS WE 
LL? 

1805 

79 

..CKDNs MOV 

A -i C 

1806 

FE04 

CPI 

ESCKEY 

1808 

2005 

JRNZ 

« «NOES 

180A 

7E 

MOV 

ODE BIT 

A 7 M 5 YEP - TOGGLE M 

18 OB. 

EE40 

XRI 

MDBITM 

1800 

77 

..ULEDs MOV 

S HERE TOO 

M,A “ SHIFTLOCK JOIN' 

> 

180E 

C9 

RET 

? NO ESCAPE - 

NORMAL CONTROL KEY 

180F 

21 1903 

..NOES: LX I 

H,CKTBL 




TDL Z80 Ci 

=7M DISK AS 

SEMBLER VERS 

:I0N 2 

.21 


PAGE 48 

l y 1 .d 

181B 


•JHPR 

..LOOK 





; HOW ABOUT S 

HIFT KEY? 



1814 

3A 80ID 

.„MOCK s 

LDA 

KEYTRK+SK1RAM 



1817 

CB47 


BIT 

SK1BIT j A 



1819 

200C 


URN 2 

. .-SKDN 



181B 

3A 8024 


LDA 

KEYTRK+SK2RAM 



•i oi cr 

CB57 


BIT 

SK2BIT,A 



1820 

u:iOU'S" 


■JRNZ 

..SKDN 



1822 

ygr 

D? 

MOV 

A,M 

■ n 

7 

IS SHIFT LOCKE 

1823 

E680 


AMI 

SLBITM 



1825 

2805 


JRZ 

..NGSK 





5 YEP - 

USE S 

HIFT LOOKUP TABLE 



1827 

21 1803 

„.SKDNs 

LX I 

HiSKTBL 



182 A 

1803 


•JMF'R 

..LOOK 



182C 

21 1883 

..NOSKs 

LX I ' 

Hv NORTBL 

n 

7 

ASSUME NOT - 

182F 

0600 

...LOOK: 

|~i 

MVI 

B , 0 

n 

7 

DO TABLE LOOKU 

1831 

09 

r 

DAD 

B 



1832 

7E 


MOV 

A,M ' ' 

u 

7 

GET ASCII 

1833 

4F 


MOV 

0 1 A 

* 

SAVE CHARACTER- 

1834 

A7 


ANA 

A 

» 

7 

VALID KEY? 

j 

08 


RZ 


n 

7 

ZERO MEANS NOT 


so 


5 IS UPPER/LOWER ALPHA REVERSE WANTED? 


1 y • “< 

3A 8025 


LDA 

KEYFLG 


1839 . 

E640 


ANI 

MDBITM 


183B 

79 


MOV 

A 7 L- 

5 STAGE.CHAR FOR 



WHATEVER 



183C 

2812 


JRZ 

..NORM 




? REVER: 

SE MODE 

IS SET/IS 

CHARACTER IN RANGE FOR 



CONFUSION 



183 E 

FE41 


CPI 

A ‘ 


1840 

380E 

R A 

JRC 

..NORM 

” SKIP IF < IJPPE 

1842 

FE7B 

WER Z 

CPI 

7BH 

? OR IF ABOVE LO 

1844 

300A 


JRNC 

..NORM 


1846 

FE61 

ER A 

CPI 

61H 

' COOL IF >= LOW 

1848 

3004 


JRNC 

. „ BIZ R 


184A 

FE5B 

PPER Z 

CPI 

5BH 

? BAD IF ABOVE U 

184C 

3002 


JRNC 

..NORM 


184E 

EE20 

..BIZRs 

XRI 

20H 

DO REVERSAL 

1850 

1850 

5F 

..NORMS 

MOV 

E, A 




l PLACE 

CHAR INTO TYPEAHEAD BUFFER 

1851 

2A 8028 


L.HLD 

CONPRO 

S GET POINTERS 

1854 

7D 


MOV 

A> L 


1855 

CD 1865 


CALL 

BUMPTR 

; P=P+1 

1858 

BC 


CMP 

H 


io-j v 

185 A 

32 8028 


rv L 

ST A 

PROPTR 

" NO -t UPDATE P.. 
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185D 2600 MVI H,0 ? STORE AT OLD P 


185F 

01 802A 


LX I 

B,KEYBUF 

1862 

09 


DAD 

B 

1863 

73 


MOV 

M,E 

1864 

1865 

C9 

; BUMP 
BUMPTRs 

RET 

POINTER TO CIRCULAR BUFFER 

1865 

3C 


IIMR 

A 

1866 

FE20 


CPI 

KEYBSZ 

1868 

CO 


RNZ 


1869 
186 A 

AF 

C9 

XRA A 

RET 

? OUTPUT TO PORT 98 KEYBOARD COL SELECT MASK 

186B 

C5 

0UT98s 

PUSH 

B 

186 C 

01 0098 


LX I 

B i 98H 

U86F 

ED79 


OUTP 

A 

1871 

Cl 


POP 

B 

1872 

1873 

C9 

; INPUT 
IN98! 

RET 

FROM 

PORT 98 KEYBOARD DATA BITSTRING 

1873 

C5 


PUSH 

B 

1874 

01 0098 


LX I 

B,98H 

1877 

ED 78 


INP 

A 

1879 
187 A 

Cl 

C9 


POP 

RET 

B 


; ***** 

; * 

5 * KEYBOARD SCANNER TABLES 


187B 

187B 

FA 

; * 

; ***** 

? TABLE OF LIVE 

X IS 

KEYMES 5 

' „BYTE 

KEYS - ORDERED 

1111101OB 

* 

AS THE SCAN MATRI 

S 

187C 

DF 

„ BYTE 

1101 111 IB 


187D 

FF 

..BYTE 

1111111 IB 


187E 

pry 

„ BYTE 

1111011IB 


187F 

FF 

.. BYTE 

1111111 IB 


1880 / 

FF 

„ BYTE 

1 I'll HUB 


1881 

FF 

»BYTE 

111 1111 IB. 


1 882 

EO 

» BYTE 

in eooooB 


1 R 33 
1883 

000000091BS1 

5 CHARACTER LOOKUP TABLES 

? UNSHIFTED CHARACTERS 

5 ORDERED BY ROW, THEN COLUMN 1 
ZERO 

NORTEL* 

» BYTE . 0, 0, 0,09H, 1BH., 

STARTING WITH BIT 

188B ' 

204247465900 

,. BYTE 

'-Bf, -- G S - F 

"," Y " , 0» '6< , 'T' 

1893 

564344535254 

»BYTE 

•" V •-, 'C y , •‘ D v , -'S 

--R--, 'T', '4', •“5 

189 B 

585A41005745 

. BYTE 

•-X-' , %■, 'AM), 

-W-', ■" E , "2”', •" 3 •" 

18 A3 

4E4D4A484955 

„ BYTE 

N , ‘" M"',J ", ->! 

, I , ‘ U * •» ' B * , * 9 * 

1 SAB 

2C2E4C4B504F 

., BYTE 

? ? r ;» J * L. r * K 

", ■•'P"' , ' Cl-- , ■‘0--‘ , 

18B3 

2 F007C 3 B003A 

.. BYTE 

y , 0,7CH, 

0■' , ■' 3 ■' , 
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18BB 

00000000005C 

' .BYTE 0,0,0,0,0,5CH,RUBKEY,ODH 

5 SHIFTED CHARACTERS 

18C3 


SKTBL 5 


18C3 

000000091B71 

. BYTE 

0 7 0,0 7 09H, 1BH, 71H, C !' ■ 

18GB 

206267667900 

„ BYTE 

•- •-, 62H 7 67H, 66H, 79H, 0, •" & •", 27H 

18D3 

766364737274 

. BYTE 

76H, 63H 7 64H, 73H, 72H, 74H, ' $ < , y 7. " 

18DB 

787A61007765 

„BYTE , 

78H, 7AH 7 61H, 0 7 77H, 65H, 22H * " 

18E3 

6E6D6A686975 

. BYTE 

6EH 7 6DH, 6AH» 68H, 69H, 75H, •- (, •") ' 

i ocn 

J. O u. JD 

3C3E6C6B706F 

„ BYTE 

•- < x , •- >>•, 6 CH, 6 BH, 7OH, 6 FH , 0, •" = " 

18F3 

3F005F2B0040 

„ BYTE 

•- ? y , 0, 5FH , •■' + •-, 0 7 '• &. •-, " 1 '7 85H 

18FB 

000000000000 

.BYTE 0r0,0 7 0 7 0,0,LINKIL,ODH 

5 CONTROL CHARACTERS 

1903 


CKTBL.S 


1903 ' 

000000091B11 

. BYTE 

07 0 7 0 7 09H7 1BH 7 1 1H 7 0 7 0 

19 OB ■ 

200207061900 

BYTE 

••• -:,2,77 6 , 19H, 0,0,0 

1913 

160304131214 

. BYTE 

16H , 3 , 4,13H , 12 H , 14H , 0 , 0 

191B 

181AO1001705 

. BYTE 

18H,1AH,1,0,17H,5,0,0 

1923 

0E0D0A080915 

.BYTE 

OEH,ODH,0AH,8,9,15H,0,0 

192B 

OOOOOCOB1OOF 

. BYTE 

0 7 0 7 OCH 7 OBH71OH 7 OFH,0,0 

1933 

008182008000 

.. BYTE 

0, 81H, .82H, 0.7 80H, 0, 1DH, 84H 

193B 

000000000083 

.BYTE 

0,0,0,0,0,83H 786 H,ODH 


« ##### 

? •* 

5 * VERB TO GRAB A CHARACTER FROM KEYBOARD 


1943 

177C 

" * KIN charac 
; # 

VERB 

+ .WORD 

ter- . 

" KIN " C 
.LINK. 

1945 

03 

+ .BYTE 

..0033-.-1 

1946 

4B494E 

+ .ASCII 

"KIN" 

1949 

1949 

1949 

CD 1954 

+..0033s 1 

GETKEYs 
..WAITS CALL 

KEYCHK 

194C 

28FB 

■JRZ 

..WAIT 

194 E 

6F 

MOV 

L, A 

194F 

2600 

MVI 

H, 0 

1951 

E5 

PUSH 

H 

1952 

FDE9 

NEXT! 

+ PCIY 3 


1954 

2A 8028 

? * SUBROUTINE TO GET A CHARACTER FROM KEYBOARD 
? * RETURNS CHAR IN A AND NZ STATUS 
? # ELSE RETURNS Z SET MEANING NO CHAR READY 

7 # 

5 if-a-*** 

KEYCHKs LHLD CONPRO 

1957 

7C 

MOV 

A, H 

1958 

BD 

CMP 

L ? ARE WE ALL CAUGHT UP? 

1959 

C8 

RZ 


195A 

5C 

MOV 

E,H 

195B 

1600 

^ MVI 

D, 0 

195D 

21 802A 

LX I 

H,KEYBUF 

1960 

19 

DAD 

D 
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1961 

56 

MOV 

D, M 

1962 

7B 

MOV 

A, E 

1963 

CD 1865 

CALL 

BUMPTR 

1966 

32 8029 

STA 

CONPTR 

1969 

3E01 

MVI 

A, 1 

196B 

A7 

ANA 

A 

196C 

7 A 

MOV 

A, D 

I960 

C9 

RET 



" * 

5 * 5 X 7 CHAR FONT 


196E 


196E 

000000000000 

1975 

202020202000 

197C 

505050000000 

1983 

4848F C 4 8 F C 4 8 

198 A 

2078807008F 0 

1991 

COCS10204098 

1998 

6090A040A890 

199F 

606060000000 

19A6 

102020202020 

19AD 

402020202020 

19B4 

00A870D870A8 

19BB 

002020F82020 

19C2 

000000606020 

19C9 

000000F80000 

19D0 

000000000060 

19D7 

000810204080 

19DE 

708888888888 

19E5 

206020202020 

19EC 

708808708080 

19F3 

708808300888 

19FA 

10305090F810 

1A01 

F880F0080888 

1 AOS 

304080F08888 

1A OF 

F80810204040 

1A16 

/ O8888708888 

1 AID 

708888780810 

1A24 

006060006060 

1A2B 

606000606020 

1A32 

102040804020 

1A39 

0000F800F 8 0 0 

1A40 

402010081020 

1A47 

708808102000 

1A4E 

7088B8A8B880 

1A55 

708888F88888 

1A5C 

F08888F08888 

1A63 

708880808088 

1A6A 

1~ 08888888888 

1A71 

F88080E08 0 80 

1A78 

F88680E08080 

1A7F 

708880809888 

1A86 

888888F88888 


5 * 

“ 

FNT575 

.BYTE OOOH,OOOH,OOOH,OOOH,OOOH,OOOH,OOOH 5 
.BYTE 020H,020H,020H,020H,020H,OOOH,020H 5 
.BYTE 050H,050H , 050H , OOOH , OOOH» OOOH 7 OOOH ? 
.BYTE 048H,04SH,OFCH,048H 7 OFCH,048H,048H 5 
. BYTE 020H 7 078H 7 080H 7 0.7OH 7 008H 7 OFOH 7 020H ? 
„BYTE OCOH,0C8H,OlOH,020H,040H,098H,GISH 5 
.BYTE 060H,090H,OAOH,040H,0A8H,090H,068H ? 
„BYTE 060H 7 06OH,060H 7 OOOH 7 OOOH 7 OOOH 7 OOOH ” 
.BYTE 01OH 7 020H 7 02GH,020H 7 020H 7 020H 7 01OH ? 
.BYTE 040H7 O 2 OH 7 020H,020H7020H,020H,040H ! 
.BYTE OOOH 7 0A8H,070H 7 0D8H,070H 7 0ASH,OOOH 5 
. BYTE OOOH 7 02.0H 7 020H, 0F8H 7 020H 7 020H 7 OOOH “ 
.BYTE OOOH 7 OOOH 7 OOOH 7 060H 7 060H,020H 7 040H “ 
. BY TIE OOOH 7 OOOH 7 OOOH 7 0F8H 7 OOOH 7 OOOH 7 OOOH ; 
.BYTE OOOH 7 OOOH 7 OOOH 7 OOOH 7 OOOH 7 060H 7 060H 5 
„BYTE OOOH 7 008H 7 01OH 7 020H 7 040H 7 080H,OOOH ? 
. BYTE 07OH 7 088H 7 088H 7 088H,088H,088H 7 070H ' 
.BYTE 020H 7 060H,020H 7 020H 7 020H 7 020H 7 070H 5 
.BYTE 070H,088H,008H,070H 7 080H 7 080H,0F8H 5 
„BYTE 07OH,088H,008H,030H,008H 7 088H,070H 5 
„ BYTE OIOH 7 030H,050H, Q9QH-, 0F8H,OlOH,OlOH ? 
„BYTE 0F8H,080H,OFOH,008H,008H,088H,070H ? 
. BYTE 030H, 040IH, 080H 7 OFOH, 088H, 088H, 070H ? 
. BYTE 0F.8H 7 008H, 01 OH, 020H, 040H, 040H, 040H » 
.BYTE 070H,088H 7 088H 7 070H,088H,088H 7 070H 5 
.BYTE 07OH,088H,088H,078H,008H 7 01OH,060H 5 
.BYTE OOOH 7 060H 7 060H 7 OOOH 7 060H 7 060H 7 OOOH , 
„BYTE 06OH,060H,OOOH 7 060H,060H,020H,040H 5 
.BYTE 01OH 7 020H 7 040H 7 080H 7 040H 7 020H 7 01OH “ 
„BYTE OOOH,OOOH 7 0F8H 7 OOOH,0F8H,OOOH,OOOH ? 
.BYTE 040H7 020H7 OlOH,008H,OlOH,020H,040H ? 
.BYTE 070H,088H,Q08H,OlOH,020H,OOOH,020H ? 
.BYTE 070H,088H,0B8H,0A8H,0B8H,080H,078H 5 
.BYTE 070H,088H,088H,0F8H,088H,088H,088H ; 
.BYTE OFOH,088H,088H,OFOH, 088H, 088H,OFOH 5 
.BYTE 070H,088H,080H,080H,080H,088H,070H ? 
.BYTE OFOH,088H,088H,088H,088H, 088H,OFOH ? 
■ BYTE 0F8H,080H,080H,OEOH,080H,080H,0F8H ? 
„BYTE 0F8H 7 080H,080H,OEOH,080H,080H,080H ? 
.BYTE 07 OH, 088H, 080H, 080H, 098H, 088H, 078H 
.BYTE 088H,088H,088H,0F8H,088H,088H,088H ‘ 


i 

ii 


# 

$ 


7 

c 

) 

* 

+ 


/ 

0 

1 


4 

5 

6 
7 
o 
9 


e 

A 

B 

C 

D 

£" 

F 

G 

H 
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. BYTE 070H, 020H, 020H , 020H, 020H, 020H, 07.0H 5 I 

„ BYTE 008H, 008H, 008H« 008H , 008H , 088H, 070H " J 

. BYTE 088H , 090H, OAOH, OCOH 7 OAOH , 090H 7 088H ? K 

. BYTE 080H, 080H, 0801-1, 080H 7 080H, 080H, OF 8 H 5 L 

.BYTE O 88 H 7 OD 8 H 7 OA 8 H 7 OA 8 H 7 O 88 H 7 O 88 H 7 088H ; M 

.BYTE 088H 7 0C8H,0A8H,098H,088H 7 088H,088H 5 N 

.BYTE OF 8 H 7 088H 7 08SH,O 88 H 7088 H 7 O 88 H 7 0F8H " 0 

.BYTE OFOH 7 088H,088H 7 OFOH 7 08 OH 7 080H,080H 3 P 

.BYTE O 7 OH 7 O 88 H 7 O 88 H 7 O 88 H 7 0A8H, 09 OH 7 0&8H “ Q 

.BYTE OFOH,088H,088H 7 OFOH,OAOH 7 090H,088H 3 R 

.BYTE 070H,088H 7 080H,070H 7 008H 7 088H 7 070H 3 S 

.BYTE 0F8H,020H,020H,020H,020H,020H,020H 3 T 

. BYTE 088H 7 088H , 08SH 7 088H 7 088H , 088H 7 070H 3 U 

.BYTE 088H,088H,088H,050H 7 050H,020H 7 020H 5 V 

.BYTE 088H 7 088H 7 088H , 0 A 8H 7 0 A 8 H 7 0 D 8 H 7 088H 5 W 

. BYTE 088H 7 088H 7 050H 7 020H, 050H 7 088H 7 088H 5 X 

.BYTE 088H 7 0S8H 7 050H 7 020H 7 020H 7 020H 7 020H 7 Y 

.BYTE 0F8H,008H,01OH,020H,040H 7 080H,0F8H 5 Z 

.BYTE 070H,040H,040H,040H 7 040H 7 040H,070H 5 
„BYTE OOOH 7 080H 7 040H 7 020H , 01OH 7 008H,OOOH 5 \ 

. BYTE 070H, 010H, 010H, 010H, 01 OH, 010H, 070H 
.BYTE 020H,070H,0A8H,020H,020H,020H,020H 5 UP 

.BYTE OOOH,020H 7 040H,0F8H,040H,020H,OOOH ? LEFT 

1B2E 20202020A870 .BYTE 020H,020H,020H,020H,0A8H,07OH,020H S DOWN 

1B35 002010F81020 .BYTE OOOH,020H,01OH,0F8H,01OH,020H,OOOH ? RIGH 

T 

; * 

; .* 3 X 5 CHAR FONT 
? * 

; ***** 

1 BSC FNT35S 

1B3C 000000000040 . BYTE OOOH,OOOH,OOOH,OOOH,OOOH,040H,040H,040H,0 

OOH,04OH,OAOH 7 OAOH 

1B48 000000AOEOAO .BYTE OOOH,OOOH 7 OOOH,OAOH 7 OEOH,OAOH,OEOH,OAOH,0 

40H,OEOH,080H,OEOH 

1B54 408020408020 .BYTE 040H 7 080H,020H,040H,080H,020H 7 OOOH,OOOH,0 

40H,OAOH,OAOH 7 040H 

1 B&O 400000004080 .BYTE 040H,OOOH,OOOH,OOOH 7 040H,080H,080H,080H,0 

40H 7 040H,020H,020H 

1B 6 C 204000A040A0 .BYTE 020H,040H,OOOH,OAOH, 040H,OAOH,OOOH,OOOH,0 

40H, OEOH 7 04OH,OOOH 

1B78 000000408000 .BYTE OOOH 7 OOOH 7 OOOH 7 040H,080H 7 OOOH,OOOH,OEOH,0 

OOH,OOOH 7 OOOH,OOOH 

1B84 000040002040 „BYTE OOOH,OOOH,04OH,OOOH,020H,040H,080H,OOOH,0 

40H,OAOH,OAOH,OAOH 

1B90 404040404040 .BYTE 040H,040H,040H,040H,040H,040H,OEOH,020H 7 0 

EOH,080H,OEOH,OEOH 

1B9L: 20&O20E0A0AO . BYT E 020H, O60H, 020H, OEOH 7 OAOH, OAOH, OEOH, 020H, 0 

20H,OEOH,080H,OCOH 

1BAS 20C0E080E0AO .BYTE 020H,OCOH,OEOH,080H,OEOH,OAOH,OEOH,OEOH,0 

20H,040H,040H,040H 

1B B 4 E O A O E O A O fc. O b O .BYT t 0 E 0 H 7 0 A 0 H ■> OEOH, 0 A 0 H 7 0 EOH, 0 E 0 H, 0 A 0 H 7 0 E 0 H, 0 


1ASD 702020202020 
1A94 080808080888 
1A9B 8890A0C0A09O 
1AA2 808080808080 
1AA9 88D8A8A88888 
1AB0 88C8A8988888 
1AB7 F88S88888888 
1ABE F08888F08080 
1AC5 70888888A890 
1ACC F08888F0A090 
1AD3 708880700888 
1ADA F82020202020 
1AE1 888888888888 
1AES 888888505020 
1AEF 888888A 8 A 8 D 8 
1AF6 888850205088 
1AFD 888850202020 
1B04 F80810204080 
1-BOB 704040404040 
1B12 008040201008 
1B19 701010101010 
1B20 2070A8202020 
1B27 002040F84020 
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20H , OEOH,0OOH , 040H 

1 SCO 004000004000 „BYTE OOOH,040H,OOOH,OOOH,040H,OOOH,040H,080H,0 

20H , 040H , OSOH , 040H 

1BCC 2000E000E000 .BYTE 020H,OOOH,OEOH,OOOH,OEOH,OOOH,OSOH, 040H,0 

20H,040H,OSOH,OEOH 

1 BBS 20400040E0A0 .BYTE 020H,040H,OOOH,040H,OEOH,OAOH,OEOH,OSOH,0 

COH,OEOH,OAOH,OEOH 

1.BE4 AOAOEOAOCOAO . BYTE OAOH, OAOH, OEOH, OAOH, OCOH, OAOH, OEOH , OEOH, 0 

80H,OSOH,OSOH,OEOH 

1BFO C0A0A0A0C0E0 .BYTE OCOH,OAOH,OAOH,OAOH,OCOH,OEOH,OSOH,OCOH,0 

8 OH,OEOH,OEOH,OSOH 

1BFC C0S080E080A0 BYTE OCOH, OSOH, OSOH, OEOH, OSOH, OAOH, OAOH, OEOH, 0 

AOH,OAOH,OEOH,OAOH 

1 COS A0E0404040E0 .BYTE OAOH,OEOH,040H,040H,040H,OEOH,020H,020H,0 

20H,OAOH,OEOH,OAOH 

1C14 AOCOAOAOSOSO „BYTE OAOH,OCOH,OAOH,OAOH,OSOH,OSOH,OSOH,OSOH,0 

EOH,OAOH,OEOH,OEOH 

1 C20 AOAOCOAOAOAO .BYTE OAOH,OAOH,OCOH,OAOH,OAOH,OAOH,OAOH,OEOH,0 

AOH,OAOH,OAOH,OEOH 

1C2C E0A0E08080E0 .BYTE OEOH,OAOH,OEOH,OSOH,OSOH,OEOH,OAOH,OAOH,0 

EOH,020H,OCOH,OAOH 

1C3S C0A0AOEOSOE0 „BYTE OCOH,OAOH,OAOH,OEOH,OSOH,OEOH,020H,OEOH,0 

EOH, 04014, 040H, 040H 

1C44 40A0A0A0A0E0 .BYTE 040H,OAOH,OAOH,OAOH,OAOH,OEOH,OAOH,OAOH,0 

AOH,OAOH,040H,OAOH 

1C50 AOEOEOAOAOAO .BYTE OAOH,OEOH,OEOH,OAOH,OAOH,OAOH,0.40H,OAOH,0 

AOH,OAOH,OAOH,040H 

1 CSC 4040E0204080 .BYTE 040H,040H,OEOH,020H,040H,OSOH,OEOH,OCOH,0 

80H,OSOH,OSOH,OCOH 

1C 68 008040200060 „BYTE OOOH,OSOH,040H,020H,OOOH,060H,020H, 020H,0 

20H,060H,040H,OEOH 

1C74 4040402040E0 .BYTE 040H,040H,040H,020H,040H,OEOH,040H,020H 

5 DEFAULT WINDOW DESCRIPTOR 

1C7C DEFWINs 


1C7C 

oOso 


.WORD 

80 

1C7E 

FFB1 


.WORD 

”79 

1C80 

0033 


. WORD 

51 

1CS2 

FFCE 

tt 

. WORD 

VERBS FOR "I" 
VERB 

”50 

,"J n , AND 
" I " t 

ICS 4 

1943 

+ 

.WORD 

.LINK. 

1CS6 

01 

4- 

. BYTE 

..0034-. 

1087 

1C88 

49 


. ASC I I 

. 00345 3 

" I" 

1C88 

DD6E00 


MOV 

L., 0 ( X ) 

1C8B 

DD6601 


MOV 

H, 1 ( X ) 

1C8E 

E5 


PUSH 

NEXT! 

H 

1C8F 

FDE9 

4* 

PCIY3 

VERB 

".J" c ■ 

1C91 

1C84 

4* 

. WORD 

.LINK. 

1C9S 

01 

-j. 

.BYTE 

..0035™„ ■ 


1C94 4A + .ASCII "J" 

1 C95 +..00355 3 


DD6E06 


MOV 


L, 6 ( X ) 
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1098 

DD6607 


MOV 

H 1 7 ( X ) 

1C9B 

E5 


PUSH 

H 




NEXT! 


1090 

FDE9 

4 

PC IY 3 





VERB 

" K " C 

1C9E 

1C9.1 

4* 

. WORD 

.LINK. 

ICAO 

01 

4 

. BYTE 

.„0036-.-1 

10 A 1 

4B 

4 

.ASCII 

n [.x u 

1CA2 


+ „.0036: 

3 


1 CA2 

DD6E0C 


MOV 

L,12(X ) 

1 CAS 

DD660D 


MOV 

H,13(X) 

1 CAS 

E5 


PUSH 

H 




NEXT I 


1CA9 

FDE9 

“ 1 “ 

PCIY3 




5 CHARACTER WINDOW VARIABLE NAME: 




CONSTANT C WINDOWV WINPTR 3 C 

1CAB 

1C9E 

4 

. WORD 

.LINK. 

1CAD 

06 

4 

.BYTE 

..0037-»-1 

1 CAE 

' 57494E444F57-+ 

.ASCII 

"WINDOW" 

1CB4 

CD OCEB 

+ s ] 

CALL. 

CONST 

1CB7 

8000 

4 

. WORD 

WINPTR3 




CONSTANT ICDX •, CDXCEL3 E 

1CB9 

1CAB 

4 

. WORD 

.LINK. 

1CBB 

03 

4 

.BYTE 

..0038-.-1 

1CBC 

434458 

4 

.ASCII 

"CDX" 

1CBF 

CD OCEB 

+ : 3 

CALL 

CONST 

1 CC 2 

8002 

4 

.WORD 

CDXCEL 3 




CONSTANTICDY,CDYCEL 3 E 

;|. CC4 

1GB9 

4 

.WORD 

.LINK. 

1CC 6 

03 

4 

.BYTE 

.„0039-.-1 

1CC7 

434459 

4 

. ASCI I 

"CDY" 

1 CCA 

CD OCEB 

+ : 3 

CALL 

CONST 

1 CCD 

8004 

4 

»WORD 

CDYCEL3 




CONSTANTICDC,CDCCEL 3 C 

1CCF 

1CC4 

4 

.WORD 

.LINK. 

1 CD 1 

03 

4 

. BYTE 

..0040-.-1 

1CD2 

434443 

4 

.ASCII 

“CDC” 

1 CDS 

CD OCEB 

+ s 3 

CALL 

CONST 

LCDS 

8006 

4 

.WORD 

cdccel ::i 




CONSTANT C CDFONI,CDFCEL 3 E 

1 CD A 

1CCF 

4 

.WORD 

'»LINK. 

1 CDC 

U 6 

4 

.BYTE 

..0041-.—1 

1 ODD 

4344464F4E? 

44 

.ASCI I 

"CDFONT" 

1CE3 

CD OCEB 

+ : 3 

CALL 

CONST 

1 CE 6 

8008 

4 

. WORD 

CtiFCEL 3 




CONSTANTECDWIND,CDWCEL3 C 

1CE8 

LCD A 

4 

„ WORD 

.LINK. 

ICE A 

06 

4 

.BYTE 

.„0042-.-1 

1CEB 

434457494E444* 

.ASCI I 

11 CDW I ND" 

1 CF 1 

CD OCEB 

+ : 3 

L-ALL 

CONST 

1CF4 

800A 

4 

. WORD 

CDWCEL3 


1CF6 

1CF6 


1C7C 


5 TABLE 
INIVAL: 

OW 


OF INITIAL VALUES FOR INITIALIZED AREA 


WORD DEFWIN 


WINPTR TO DEFAULT WIND 
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1CF8 

FFBl 


.WORD -79 

", CX,CY TO SCREEN ULHC 

1CFA 

0033 


it WORD 51 


1CFC 

0001 


.WORD 1 

? COLOR OF CHARS TYPED 

.1.CFE 

14CC 

H 

.WORD SMLFNT 

? FONT TO TYPE CHARS WIT 

1D00 

1C7C 

NTO 

.WORD DEFWIN 

? WINDOW TO TYPE CHARS I 

ID 02 


ENDGRs 
? &&&*& 

$ * 

? # RAM 
? * 

STUFF FOLLOWS! 


8000 



.LOG RAMBEG 




? THIS AREA INITIALIZED 

ON POWERUP TO REASONABLE 



STUFF 



8000 


WINPTRs 

.BLKB 2 


8002 


CDXCELs 

.BLKB 2 


8004 


CDYCELs 

.BLKB 2 


8006 


CDCCEL s 

.BLKB 2 


8008 


CDFCELs 

.BLKB 2 


800A 


CDWCELs 

.BLKB 2 




5 END OF INITIALIZED AREA 

800C 


ZEROUTs 



800C 


INTLOKs 

.BLKB 1 

■S INTERRUPT LOCKOUT FLAG 


800D 

INCROs 

v 

.BLKB 

2 ? GRAPHICS SCRATCH MEMOR 

80 OF 

T 

MNMXS 

. BLKB 

2 

8011 

PIXVALs 

«BLKB 

1 

8012 

WRMODEs 

. BLKB 

1 


? RAM FOR CIRCLE 

: COMMAND 

8013 

CIRXAs 

» BLKB 


8015 

CIRYAs 

.BLKB 

2 

8017 

CIRDELs 

.BLKB 

2 . 

8019 

INTVRBS 

. BLKB 

2 ", INTERRUPT VERB TO DO 

80.1 B 

lYVALUs 

. BLKB 

25 IY VALUE TO USE FOR INTERRUP 


T ( ** 

TEMP **) 



5 RAM FOR KEYBOARD SCANNER 

CO 

o 

ri 

KEYTRK s 

. BLKB 

8 5 KEYBOARD TRACKING MEM 

8025 

KEYFLGs 

„ BLKB 

1 5 KEYBOARD SHIFT MODE FL 


AG 



8026 

OLDKEYs 

. BLKB 

1 5 LAST KEYCODE TYPED 

8027 

keyptks 

. BLKB 

1 ? EASY ENTRY KEYPAD TRAC 


KER 



8028 

CONPROs 



8028 

PROP.tR: 

. BLKB 

1 ", PRODUCER POINTER 

8029 

CONPTRs 

.BLKB 

1 ", CONSUMER POINTER 

802A 

KEYBUFs 

.BLKB 

KEYBSZ ? KEYBOARD BUFFER 

003E 

ZERSIZ= 

.-ZEROUT 


ICES 

LSTLNK= 

.LINK. 



. END 
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ABS 

1471 

BREAK 

OOFF 

BUMPCX 

1739 

BUMF'CY 

174C 

BUMPTR 

1865 

BX.MOD 

0002 

BX. X 

OOO A 

BX. XS 

0006 

BX . Y 

0008 

BX . YS 

0004 

BYTEPL 

0028 

CBOTH 

OFBE 

GDC 

1 CDS 

CDCCEL 

8006 

CDELTA 

1448 

CDFCEL 

8008 

CDFONT 

1CE3 

CDWCEL 

800A 

CDWIND 

1CF1 

CDX 

1CBF 

CDXCEL 

8002 

CDY 

1 CCA 

CDYCEL 

8004 

CF. C 

0006 

CF. F 

0004 

CF. M 

0008 

CF.X 

OOOC 

CF. Y 

OOOA 

CHARO 

1532 

CIRDEL 

8017 

ClRENT 

1027 

CIRXA 

8013 

CIRYA 

8015 

CK1BIT 

0003 

CKIRAM 

0003 

CK2BIT 

0004 

CK2RAM 

0007 

CKTBL 

1903 

CLEARE 

139F 

CLIP 

12C5 

CLIPPE 

12DF 

CLOOP 

0F82 

CLP.C 

OOOA 

CLP. S 

0006 

CMPM 

14B4 

CNTMSK 

0030 

COMLV 

1771 

COMUV 

1778 

CONPRO 

8028 

CONPTR 

8029 

CONST 

OCEB 

CPHLDE 

1386 

CRAPPE 

4F'FF 

CYSCRO 

168B 

DCHAR 

158A 

DECLOK 

0CF9 

DEFWIN 

1C7C 

DEPARM 

1761 

DIV2HL. 

1050 

DMINUS 

OF A 6 

DOBOX 

120B 

DOWNA 

0000 

DPADDR 

CO 

i> 

O 1 

DPVAL 

8080 

DQUGTE 

0022 

DRAW4 

1001 

DSTOR 

0FD7 

DVECT 

13F6 

ENDGF* 

1D02 

esg 

00 IB 

ESCKEY 

0004 

FDF,XL 

0000 

FD. AD 

0005 

FD.BAS 

0000 

FD.FLG 

0007 

FD.XCS 

0001 

FD. XF 

0003 

FD.YCS 

0002 

FD. YF 

0004 

FINDLA 

165B 

FLIP 

OOFE 

FNT'35 

1B3C 

FNT57 

196E 

FORWA 

0000 

FR.P1 

0002 

FR.P2 

0004 

FR.P3 

0006 

FR.P4 

0008 

FR. P5 

OOOA 

FR.P6 

OOOC 

FR.P7 

OOOE 

FR.P8 

0010 

GETKEY 

1949 

GOBACK 

0D47 

GOBAKV 

0D45 

GPIXEL 

0EC1 

GRADDR 

OCAO 

IN98 

1873 

INBIT 

ODCD 

INCHAR 

0DB9 

INCLOK 

0CF2 

1NCR0 

8000 

INFBK 

OOOD 

INICOL 

OCEO 

INIVAL 

1CF6 

INL..IN 

OOOF 

INMOD 

OOOE 

INTLOK 

800C 

INTNOG 

0D52 

INTVEC 

OD 18 

INTVRB 

8019 

IYVAUJ 

80 IB 

KEYBS'Z 

0020 

KEYBUF 

802A 

KEYCHK 

1954 

KEYFLG 

8025 

KEYMES 

187B 

KEYF'SN 

178E 

KEYPTK 

8027 

KEYSCN 

1.7B5 

KEYTRK 

80 ID 

KEYTRV 

0003 

LARGE 

14DC 

LASTAD 

8064 

LEADER 

0E5A 

LEFT A 

005F 

LEFTX 

1633 

LF 

OOOA 

LINKIL 

0018 

LOCK 

OOFD 

LRGFNT 

14E1 

LSTLNK 

ICES 

MAGIC 

OOOC 

MDBITM 

0040 

MNMX 

800F 

MRXPND 

0003 

MSKTBL 

13F2 

NEGHL 

1058 

NL 

OOOD 

NORTBL 

1883 

OLDKEY 

8026 

ORJOIN 

OF 07 

ORPT 

OF 01 

0UT98 

186B 

OUTBYT 

0E2F 

FTXVAL. 

8011 

PLOP 

OF 12 

PLOP1 

OF 13 

PLOF'NG 

0F3A 

F'OINTR 

OEEB 

POWERU 

OCAO 

PRIOR 

0F3C 

PROPTR 

8028 

F’RPLOP 

OFOE 

R2A 

1491 

R2ACLP 

1476 

RAMBEG 

8000 

RE SCX 

1675 

RESCY 

16DC 

RUBKEY 

005F 

; RUBOIJT 

0008 

SAVEE 

OETO 

SCRINT 

OD1A 

SCROLE 

1069 

SGNEXT 

146 A 
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SHKMSK 

0044 

SHYLOK 

0001 

SKIBIT 

0000 

SKIRAM 

0000 

SK2BIT 

0002 

SK2RAM 

0007 

SKTBL 

1803 

SLBITM 

0080 

SMALL 

1407 

SML.FNT 

1400 

SQUOTE 

0027 

TAB 

0009 

TAPE10 

0099 

TARGET 

0D97 

TOKBl'T 

0002 

TOKRAM 

0000 

LIRA 

005E 

IJF'Y 

1648 

URINAL 

OFFF 

VECT2 

1410 

VECT2A 

1423 

VECT3 

1433 

VECT4 

1438 

VECT5 

1443 

WINDOW 

1CB4 

WINPTR 

8000 

WRBLOC 

0E24 

WRMODE 

8012 

WRONE 

0E70 

WRZERO 

0E7A 

WXL 

0002 

WXR 

0000 

WYL. 

0006 

WYU 

0004 

XCHECK 

1700 

XORCHR 

0000 

XORPT 

0EF9 

XORWMR 

0020 

XPAND 

0019 

XPWMR 

0008 

YCHECK 

16F4 

ZEROUT 

8000 

Z ERb1Z 

003E 

.LINK. 

1CE8 





